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En mission de reconnaissance 
dans une région encore inconnue 
de l'espace, vous entrez 
soudainement dans un champ 


de mines. 
Denis PAMART 


L es mines avancent vers vous et per- 

cutent votre vaisseau, le DRAKE ; 
vous devez donc les détruire avant qu'el- 
les ne vous atteignent à l'aide de votre 
LAZER, mais attention, ces mines doi- 
vent impérativement être touchées en leur 
centre pour être détruites. 

Quand une mine heurte votre vais- 
seau, le ler cadran d'avarie s'emplit de 
rouge. Il s'emplit un peu plus à la 2ème 
3ème puis 4ème avarie et quand le der- 
nier cadran est complètement rouge, à la 
Sème avarie, votre vaisseau est détruit. 

Lorsque vous avez choisi les touches 
curseur pour diriger votre viseur, afin de 
corser le jeu et pour une plus grande ra- 
pidité d'action, le viseur ne s'arrête pas 
sur place quand aucune touche n'est pres- 
sée, il termine sa course avant de se sta- 
biliser contre un des 4 côtés qui limitent 
le rayon de tir. Cela oblige le joueur a 


une plus grande adresse afin de tirer les 
mines au passage. 

L'option joystick permet l'arrêt du vi- 
seur quand la manette est inactivée. Le 
viseur doit être arrêté pour pouvoir tirer. 
Quand vous avez plus d'une avarie, un 
petit vaisseau peut fortuitement traver- 
ser l'écran de droite à gauche ou de gau- 
che à droite. C'est à vous de le détruire en 
tirant sur le vaisseau de couleur rouge et 
non pas sur la charge blanche qu'il trans- 
porte. Si celui-ci est détruit on peut ima- 
giner que vous allez récupérer sa charge 
de matériaux et d'outils pour effectuer des 
réparations au DRAKE ; cela vous en- 
lève donc une avarie et vous laisse en- 
core un sursis dans ce périlleux voyage. 


Vous disposez de trois niveaux de 

difficulté : À, B et C. Ces niveaux se tra- 
duisent par la vitesse d'approche des mi- 
nes destructrices. 
Au niveau du tableau des scores, plus vous 
détruisez les mines quand elles sont éloi- 
gnées, petites, plus vous marquez de 
points. 

Conseil : quand une mine heurte votre 
vaisseau (scrolling) et qu'il est trop tard 
pour la détruire, cessez d'appuyer sur le 
bouton de tir (Copy ou FIRE). 
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10 ? LERESSLSISSEE SELS ESS ESS) 


MISSION SPACIALE 


Par 


Denis PAMART 


on 
o 
0 ME 4e Me me DE me me 


110 ? 
120 ? 
130 ? HAMMAM 
140 ’ # PRESENTATION # 
CR TITTT ETES STI) 


160 MODE 1:INK O,0:INK 1,6:INK 2,13 ) 


.26:INK 3,26:BORDER ! 


170 SYMBOL 255,0,66,36,24,24,36,66, 


0 
180 C$-CHR$(255) 

190 FOR k=1 TO 70 

200 1x=INT(RND(1)2630)+10 
210 1y=INT(RND(1)#390)+10 
220 PLOT 1x,1y,3 

230 NEXT 

240 FOR g=1 TO 5 

250 ex=INT(RND(1)238) +2 
260 ev=INT(RND(1)223) +2 
270 PEN 


L] 
Li 
} 
* 
L) 
} 


LESSEEE SES SSI SEE SES SS IEEE) 





?CH 


CD 
>DA 
>UB 
>UG 
>LN 
)EA 
NF 
>RM 
>RH 


2:SPEED INK 50,50:LOCATE ex >QA 





.ey:PRINT C$ 
280 NEXT >EF 
290 PEN 1:LOCATE 25,16:PRINT'Par"  >CC 
300 LOCATE 21,18:PRINT"Denis PAMART >GB 
310 FOR J:8 TÙ 23 ?CJ 
320 PEN 3:LOCATE J,10:PRINT CHR$(20 ?EL 
8) 
330 NEXT :EB 
340 FOR h=1 TO 14 ?CC 
350 READ A >JD 
360 POKE &B2BF,A >Ej 
370 LOCATE 8,S:PRINT"MISSION SFACIA >jL 
LE* 
380 DATA 37,4à,45,60,/5,105,107,120 >A2 
.135,150,151,165,210,211 
390 FOR N=90 TO 125 STEP INT(RND(1) >G4 
#10)+1 
400 SOUND 1,N,2,15 >MK 
410 NEXT >EA 
420 NEXT >EB 
430 D$=INKEYS >PD 
440 IF D$<>"" THEN GOTO 470 >TB 
450 RESTORE >HD 
460 GOTO 340 >2D 
&TO ? HARNMMEANEEENUEEX >TB 
480 * *# REGLES DU JEU # ?TC 
490 ? HAHMRNENNNEENNEEX )TD 
500 DIM tb(40,25) >GG 
510 CLS:INK 2,15:PEN 2:POKE &B28F,2 DDT 
ii 
520 LÜCATE 10,10:PRINT"VOICI LES RE >WU 
GLES DU JEU :" 
530 LOCATE 9,14:PRINTLES CONNAISSE >XA 
Z-VOUS (O/N) ?" 
540 F$=INKEYS >PH 
550 1F F$="o" OR F$="0" THEN GOTO 6 >BT 
40 
560 IF F$="n" OR F$="N" THEN GOTO 5 >KL 
10 ELSE 540 
570 CLS >UG 
580 LOCATE 1,1:PRINT:PRINT" >CJ 
Cosaandant votre vaisseau, le 
DRAKE, vous etes envoye en mission d 
e reconnaissance dans une region co 
ntroleepar l’enneai.Des votre arriv 
ee,des ninesdestructrices viennent 
se jeter sur votre vaisseau." 
590 PRINT "Vous devez iaperativesen >TB 


t utiliser votreLAZER pour les detr 
uire; sais attention,elles ne sont 


| vulnerables qu'en leur 


|utre un petit 
| t vous, et vous 





centre." 
600 PRINT"Par chance, de temps 
vaisseau passe devan 

pouvez le detru 
ire afin de recuperer la charge qu’ 
il emportait, et qui va vous" 


| 610 PRINT "bersettre d'effectuer le 
| s reparations 
| 620 PRINT * 


urgentes." 

Les cadrans d'avari 
es vous tiennenttoujours au courant 
de l’etat du DRAKE. Deplacez votre 
viseur avec les touches de curseu 
ret faites feu avec la touche COPY 
. ou utilisez le JOYSTICK." 

630 CALL &BBO6 

640 GOSUB 2790 


! 650 URIGIN 20,112,20,620.366,112 


660 D$=INKEYS$ 

670 LOCATE 16,11:PRINT"JOYSTICK ?" 
680 IF D$="0" OR D$="o" THEN JS:i E 
LSE JS:0 

690 IF D$="" THEN GÜTO 660 

700 ŸORARRMREMÉRMRRMÉRRRNERNEE 

210 * # CHOIX DE DIFFICULTE # 

720 * HHARÉRERMRÉNEHEERRREERERE 

730 CLG:PEN 3:LOCATE 12,4:PRINT'"QUE 
LLE DIFFICULTE * 

740 LOCATE 11,6:PRINT"DE JEU VOULEZ 
-VOUS ?* 


750 LOCATE 12,10:PRINT'A .,. FACILE : 
760 LOCATE 12,12:PRINT"B ... MOYENN > 
E" 

170 LOCATE 12,14:PRINT"C ... PLUS D 
IFFICILE" 

780 O$=INKEY$ 


190 IF 0$="a" OR 0$="A" THEN RN-20: 
NR-90:MB=140:BM=190:G0T0 830 
800 IF 0$="b" OR 0$="B" THEN RN=20: 
NR=65:MB=110:BM=155:G0T0 830 
810 IF 0$="c" OR 0$="C" THEN RN-10: 
NR-46:MHB=90:BH=136:G0T0 830 
820 GOTO 780 
830 CLG:WINDOW 2,39,3,18 
840 WINDOW #1,1,40,20,25 
850 IF w=1 THEN PEN 2:G0T0 2090 
860 GOSUB 2090 
870 ? HANMAEAMNEENNAEEE 
880 ’ *# BOUCLE VISEUR # 
890 ? HHAHMHAMMNANMNEEX 
900 PEN 2 
910 IF JS-0 GOTO 1000 
920 D$=INKEYS$ 
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à à ? 


DA 


>Ny 


>MB 


>QK 


>YB 


)PJ 


>D 


>HG 


RB 
>RH 
>RJ 
>RK 
>YV 


>PK 





| 1040 
| 1050 


| 1220 





930 Z=J0Y(0) 

940 IF Z=:16 THEN GOSUB 1210 
950 IF 2=4 THEN DX=-1 

960 IF 2-8 THEN DX:1 

970 IF Z=1 THEN DY:-1 

980 IF Z:2 THEN DY:1 

990 IF J5=1 THEN GOTO 1060 


| 1000 D$:INKEYS$ 
| 1010 di=(d$=f1$)-(d$-t24) 


1020 
1030 


d2=(d$=t3$}:-(d$:f48; 

IF di(>0 THEN dx=di:dy:0 

IF d2<>0 THEN dy=d£:dx-0 

IF INKEY(3)-0 THEN GOSUB 1210 
Xp=px+dx 

Yp=py+dy 

IF tbixp,ypi:{ THEN xp=px:vp:p 


1060 
1070 
1080 


| Ÿ 


1090 
1100 
1110 
1120 
1130 
1140 
{150 
1160 
1170 
1180 
1190 
1200 
1210 


LOCATE px,py 

PRINT n$: 

LOÜCATE xp,yp 

PRINT $: 

px=xp 

py=yp 

IF an=4 ÜR mn=S THEN RETURN 

IF JS=1 THEN DX=0:DY-0 

GOTO 900 

DREFEES ES 

" # FIRE # 

DNPPTITII I 

x=INTC{5.954px) 
y=INT(266-(15,95æpy)) 

FOR N-63 TO 75 STEP 3 

SOUND 1.N,2,15 

NEXT 

MOVE 80,1 

1270 DRAW x-20,v,3 

1280 MOVE 519.1 

1290 DRAW x,y 

1300 HOVE 80.1 

1310 DRAW x-20,y,0 

1320 MOVE 519,1 

1330 DRAUW x.y 

1340 IF mn=0 AND ((x-10>=u AND x-10 
{=u+20) AND (y+102=v AND y+10<=vt15 
)) THEN AV=0:G0TO 1430 

1350 IF æn=1 AND ((x-10>=u-5 AND x- 
10<=u+25) AND (y+10>=v-10 AND y+10< 
=y+20)) THEN AV=0:G0TO 1430 

1360 IF mn-2 AND ((x-10>=u-10 AND x 
-10<=u+30) AND (y+10)=v-15 AND y+10 
<=v+20)) THEN AV=0:G0T0 1430 

1370 IF æn=3 AND ((x-10>=u-{5 AND x 
-{0<=u+35) AND (y+10>=v-25 AND y+10 


1230 
1240 
1250 

260 


AL 


>CR 


CL 


(=v+25)) THEN AV=0:GOTO 1430 


1380 IF æn=4 AND ((px>=ax AND pxé=a ? 


x+4) AND (py=ay)) THEN GOTO 1560 
1390 IF æn=5 AND ((px>=ax AND px<=a 
xt4) AND (py=ay)) THEN GOTO 1590 EL 
SE RETURN 

1400 ? HHHHAHMMMMRNREURX 

1410 ? # MINE DETRUITE # 

1420 ? HARRRRUMMRHUNEENE 

1430 a=REMAIN(O)+REMAIN({)+REMAIN(2 
)+REMAIN(3) 

1440 SOUND 1,200,10,7,0,0,1 

1450 CLG:MOVE u,v:DRAUR -50,25,2:M0 
VER 55,-15:DRAUR -20,20:MOVER 25,-1 
O:DRAUR 0,50:MOVER 5,-60:DRAWR 20,2 

O:MHOVER -10,-30:DRAUR 50,25:MOVER - 
50,-35:DRAWR 20,-10:MOVER -30,5:DRA 

WR 40,-50 

1460 MOVER -45,40:DRAUR 0, -20:MOVER 
-5,30:DRAUR -40,-SO:MOVER 35,55:DR 
AR -20,-10:CLG 

1470 IF mn=0 THEN LOCATE 41,6,5:FR] 
NTH,":%:5+3000: :5=5+3000 

1480 IF mn={ THEN LOCATE #1,8,5:PRI 
NTHI,":":5+2600: :5=5+2500 

1490 1F mn=2 THEN LOCATE #1,8,5:PRI 
NTH,":":5+2000: :5=5+2000 

1500 IF mn=3 THEN LOCATE #1,8,5:PRI 
NTHI,"::8+1000: :5=5+1000 

1510 GOTO 2090 

1520 RETURN 

1530 ? HARMAN ÉENNNEUNNNNNNUUNE 
1540 ? # PETIT VAISSEAU ABATTU *# 
ÉLIRE ETE CES EEE EEE ESS) 
1560 LOCATE axt{,ay:PRINT ex$ 

1570 LOCATE ax+i,ay+i:PRINT ins 
1580 ax=0:G0T0 1620 

1590 LOCATE ax,ay:PRINT ex$ 

1600 LOCATE ax.ayti:PRINT is$ 

1610 ax=40 

1620 FOR a=1 TO 30:NEXT:CLG 

1630 FOR i=0 TO 20 

1640 SOUND 1,80+3#i,i/2+5,7-i/4,,,1 


1650 NEXT 

1660 XB-90 

1670 IF Q=2 THEN XA=275 
1680 IF Q=3 THEN XA=310 
1690 1F Q=4 THEN XA=345 
1700 c=2 

1710 GOSUB 2270 

1720 Q=Q-1 

1730 GOTO 2090 





)JY 


NL 





1740 " HHRRÉRURUMENERRUNEEX 
1750 * + APPARITION MINES * 
1760 ? HAHHHAENMEERNUNENREEE 
1770 ? 
1780 

S +++ 
1790 ? 

AUX ##1 
1800 CLG 
1810 RANDOMIZE TIME 

1820 u=INT(RND(1)#550)+50 

1830 v=INT(RND(1)#190) +40 

1840 IF q>1 AND u>=550 AND v>:130 T 

HEN GOSUB 2610 

1850 IF q>1 AND u>=550 AND vé=130 T 

HEN GOSUB 2630 

1860 IF u>=550 AND qt=i THEN u=0:v= 

0:GOTO 1810 

1870 

1880 ### MINES DE DIFFERENTES 
TAILLES ### 

1890 CLG:an=0 

1900 MOVE ut+5,v+5:DRAUR 0,5, 3:DRAUR 
-10,10:DRAUR -5,0:DRAUR 0,5:DRAUR 
6,0:DRAUR 0,-3:DRAWR 10,-10:DRAWR 8 
,0:DRAWR 10,10:DRAWR 0,3:DRAUR 6,0: 
DRAUR 0,-5:DRAUR -5,0:DRAWR -10,-10 
:DRAUR 0,-5:DRAWR 10,-10:DRAUR 5,0: 
DRAWR 0,-5:DRAWR -6,0:DRAUR 0,3:DRA 

WR -10,10 

1910 DRAUR -8,0:DRAWR -10.-10:DRAWR 
0,-3:DRAUR -6,0:DRAWR 0,5:DRAUR 5, 
O:DRAWR 10,10 j 
1920 RETURN 

1930 CLG:an=i 

1940 MOVE u,v:DRAWR 0,10,3:DRAUR -2 
0,20:DRAUR -10,0:DRAUR 0, 10:DRAUWR 1 

2,0:DRAUR 0,-5:DRAUR 20,-20:DRABR 1 
5,0:DRAWR 20,20:DRAWR 0,5:DRAUR 12, 

O:DRAWR 0,-10:DRAWR -10,0:DRAWR -20 
,=20:DRAUR 0,-10:DRAWR 20,-20:DRAUR 
10,0:DRAUR 0,-10:DRAWR -12,0:DRAUR 
0,5 

1950 DRAUR -20,20:DRAUR -15,0:DRAUR 
-20,-20:DRAUR 0,-5S:DRAUR -12,0:DRA 

WR 0,10:DRAUR 10,0:DRAWR 20,20 

1960 RETURN 

1970 CLG:æn=2 

1980 MOVE u-5,v-5:DRAWR 0,15,3:DRAW 

R -25,25:DRAUR -15,0:DRAUR 0,15:DRA 
WR 18,0:DRAUR 0,-8:DRAWR 25,-25:DRA 

WR 25,0:DRAUR 25,25:DRAUR 0,8:DRAUR 
18,0:DRAUR 0,-15:DRAUR -15,0:DRAUR 
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### LOCALISATION DES MINE 


#x4 DEPARTS PETITS VAISSE 


)YE 
dYF 
>YG 


"H | 
NY] 


v 


KF 


>FF 
>PJ 
MF 


v 


XC 





-25,-25:DRAUR 0,-15:DRAUR 25,-25:D 
RAWR 15,0:DRAWR 0,-15:DRAUR -18,0:D 
RAR 0,8 
1990 DRAUR -25,25:DRAUR -25,0:DRAWR 

-25,-25:DRAUR 0,-8:DRAWR -18,0:DRA 
UR O,15:DRAWR 15,0:DRAUR 25,25 
2000 RETURN 
2010 CLG:æn=3 
2020 MOVE u-10,v-10:DRAWR 0.20.3:Dh 
AR -30,30:DRAWR -20,0:DRAUR 0,20:D 
RAWR 24,0:DRAWR 0,-10:DRAUR 30, -30: 
DRAUR 30,0:DRAWR 30,30:DRAUR 0,10:D 
RAWR 24,0:DRAWR 0,-20:DRAUR -20,0:D 
RAWR -30,-30:DRAWR 0,-20:DRAUR 30, - 
30:DRAUR 20,0:DRAUR 0,-20:DRAWR -24 
.0 
2030 DRAWR 0,10:DRAWR -30,30:DRAWR 
-30,0:DRAUR -30,-30:DRAUR 0,-10:DRA 
MR -24,0:DRAUR 0,20:DRAWR 20,0:DRAW 


| R 30,30 


2040 CLG 


| 2050 IF AV=1 THEN GOSUB 2130 


POELE ECEETETEEEET ETES TETESTETEE 
LELEE 


2070 ' + BOUCLE D'APPARITION DES MI > 


NES 


LC 


v 


EF 
>PA 
>FU 


FU 


v 


2080 ? HARAANRAENNNNNUREURENUNNEIX > VC 


CETTE 

2090 AV=1:T=0:U=0:V=O:AFTER RN,0 GÙ 
SUB 1800:AFTER NR.1 GOSUB 1930:AFTE 
R MB,2 GOSUB 1970:AFTER BM,3 GOSUB 

2010:RETURN 


| 2100 Ÿ HARAARNRÉERNUNNUHRUNEE 


2110 * # VAISSEAU ENDOMMAGE # 

2120 ? HRRARENEEHENENERÉEUNEE 

2130 FOR 1=1 TO 2 

2140 CALL 40000 

2350 FOR 0=1 TO 2 

2160 CALL 40006 

2170 NEXT 

2180 CALL 40000 

2190 NEXT 

2200 Q=Q+1 

2210 IF Q=5 THEN GOTO 2410 

2220 FOR N=7 TO 1 STEP -1 

2230 SOUND 1,426,40,N,,,1 

2240 NEXT 

2250 LOCATE 6,9:PRINT"VOTRE VAISSEA 
U EST ENDOMMAGE !" 

2260 IF q=1 THEN xa=240:xb=74:c=3:E 
LSE GOTO 2340 

2270 ORIGIN 1,1,1,640,365,1 

2280 FOR y=70 TO xb 


>XF 
?XG 
)XH 
>BF 
QC 
>CD 
>RA 
>LB 
>0G 
>LD 
>LB 
>TQ 
Qu 
>RF 
>KK 
>BA 


QU 


UC 
ME 


2290 MOVE xa,y 

2300 DRAW xa+20,y,c 

2310 NEXT 

2320 ORIGIN 20,112,20,620,366, 112 
2330 RETURN 

2340 IF Q=2 THEN XA=275:xb=78:c-3:G 
OTO 2270 

2350 1F Q=3 THEN XA=310:xb-82:c-3:G 
OTO 2270 

2360 1F Q=4 THEN XA=345:xb=86:c=3:G 
OTO 2270 

2370 RETURN 

PRCURMREETETTES TETE ETES ETS TS) 
2390 + VAISSEAU DESINTEGRE-FIN # 
2400 ? HAE 
2410 ENV 2,50,-0.5,10 

2420 SOUND 1,598,200,4,2,2,11 

2430 XA=380:xb=90:GO0SUB 2270 

2440 INK 1,6,26:INK 0,0,26:BORDER 0 
. 26 

2450 FOR 1=1 TO 200 

2460 SPEED INK 2,2 

2470 NEXT 

2480 INK 0,0:INK 1,6:BORDER 0 

2490 IF SR THEN R-5 

2500 LOCATE #1,26,5 

2510 PRINT#{,"RECORD:":R: 

2520 LOCATE 6,6:PRINT"VOTRE VAISSEA 
U EST DESINTEGRE !!" 

2530 LOCATE 10,9:PRINT" VOULEZ-VOUS 
PRENDRE" 

2540 LOCATE 8,11:PRINT"UN AUTRE DEP 
ART (O/N) ?* 

2550 D$=INKEY$ 

2560 IF D$="o" OR D$="0" THEN CLG:1 
NK 1,24:LOCATE #1,8,5:PRINT#1,": 00 
000 ":ORIGIN 1,1,1,640, 365, 1 :GOSUB 
3890:0RIGIN 20,112,20,620,366,112:S 
=0:Q=0:w=1:px=19:py=8:G0T0 660 
2570 1F D$="n" OR D$="N" THEN MODE 
1: INK 1,18:BORDER 2:PEN 1:LOCATE 16 
+ 10:PRINT"DOMMAGE, ":LOCATE 10,12:PR 
INT'UNE AUTRE FOIS ALORS !":END:ELS 
E GOTO 2520 

2580 ? HAHNMHHMMMMNNUENNUNUNNEEUNNX 
2590 ? *# PASSAGE PETIT VAISSEAU # 
2600 ? HAMMERMMMHNMUMEENMUENNERÉNE 
2610 FOR n-0 TO 3:a=REMAIN(n) :NEXT 





»XC 
?NN 
>KH 
»22 
>FB 
>KC 


>KN 


>KD 


>FF 
YF 
3YG 
)X 
NY 
WW 
)WB 
DZ 


?LE 
?Lÿ 
)LE 
LE) 
>NF 
>MV 
DL 
)EB 


OR 


>TB 


)K 
>CJ 


>HG 


)YH 
NY] 
>YA 
>CD 


2620 an-4:ax=35:ay=INT(RND(1)#13)+2 »>NB 


:GOTO 2650 
2630 FOR n=0 TO 3:a=REMAIN(n) :NEXT 
2640 an=S:ax={:ay=INT(RND(1)#13)+2: 
GOTO 2670 


CF 
>Hh 








2650 LOCATE ax,ay:PEN 3:PRINT ads 
2660 LOCATE ax.ay+1:PEN 2:PRINT cd$ 
:GOTO 2690 


i 2670 LOCATE ax,ay:PEN 3:PRINT da$ 


2680 LOCATE ax,ay+i:PEN 2:PRINT de$ 
2690 1F an=4 THEN ax=ax-0.99 ELSE a 
x=ax+0.99 

2700 SOUND 1,240,10,10,1,2,5 

2710 IF JS=1 THEN DX-0:DY-0:GO0SUB 9 
00 

2720 IF JS=0 THEN GOSUB 1000 

2730 IF an=4 AND ax<i THEN CLG:GUÜTO 
2090 


2740 IF æn=5 AND ax>35 THEN CLG:G0T > 


0 2090 


2750 IF an=4 THEN GOTO 2650 ELSE 26 > 


70 

2760 ? HARAHENAUHANEEEEEE 

2710 ' # INITIALISATION # 

2780 ? HHMMAMHMEMNNNENNEE 

2790 MODE i:BORDER O:INK O,0:INK 1, 
24:INK 2,26: INK 3,6 

2800 ? 
2810 ? 
#4 
2820 PEN 1:FO0R PX-2 TO 39 

2830 LOCATE px,2 

2840 PRINT CHR$(210);:tblpx.1)=1 

2850 NEXT 

2860 FOR px=2 TO 10 

2870 LOCATE px.23 

2880 PRINT CHR$(208) 

2890 NEXT 

2900 FOR px=15 TO 26 

2910 LOCATE px, 19 

2920 PRINT CHR$(208) 

2930 NEXT 

2940 FOR i=2 TO 39 

2950 tb(i,15)=1 

2960 NEXT 

2970 FOR px-31 TO 39 

2980 LOCATE px, 23 

2990 PRINT CHR$(208) 

3000 NEXT 


#x# DESSIN TABLEAU DE BORD 


| 3010 px=9:py=24 


3020 FOR t=2 TO 5 
3030 LOCATE pxtt,py-t 
3040 PRINT CHR$(204) 
3050 NEXT t 

3060 px=32:py=24 
3070 FOR t=2 TO 5 
3080 LOCATE px-t,py-t 
3090 PRINT CHR$ (205) 


6 


en à 
PE à 


>BC 








3100 NEXT t 

3110 FOR py=3 TO 22 

3120 LOCATE 1,py 

3130 PRINT CHR$(209):tb(2,2)=1:tb(2 
.Py)=1 

3140 LOCATE 40,py 

3150 PRINT CHR$(211):tb(37,2)=1:tbt 
37,py)=1 

3160 NEXT py 

3170 ? 

3180 ##4 DESSINS CANONS ##4 
3190 FOR a-60 TO 50 STEP -1 

3200 MOVE 17.a 

3210 DRAW 100,110,2 

3220 MOVE 622,a 

3230 DRAW 539,110 

3240 NEXT 

3250 FOR a=16 TO 26 

3260 MOVE a,49 

3270 DRAW 101,110 

3280 NEXT 

3290 FOR a=624 TO 614 STEP -1 

3300 MOVE a,49 

3310 DRAW 540,110 

3320 NEXT 
3330 ? 
3340 ? 


### SC, RE. AVA. ##x 


| 3350 LOCATE 17,22:PRINT"AVARIES" 


3360 LOCATE 3,24:PRINT'SCORE: 00000 
3370 LOCATE 26,24:PRINT"RECORD: 000 
00" 

3380 LOCATE 18,24:PEN 3:PRINT"DRAKE 
3390 ? 
3400 ? 
3410 5-0 
3420 j$=CHR$(159) 

3430 f1$=CHR$ (242) :f2$-CHR$ (243) 
3440 f3$=CHR$(240):f48$=CHR$ (241) 
3450 n$=CHR$(32) 

3460 px=19:py=8 

3470 dx=0 

3480 dy=0 

3490 ? 

3500 #44 SCROLLING ### 

3510 MEMORY 39999 

3520 DATA 06,255,205,77,188,201 
3530 FOR ADR-40000 TO 40005 
3540 READ VALEUR 

3550 POKE ADR, VALEUR 

3560 NEXT 

3570 DATA 06,0,205,77,188,201 


##4 VARIABLES #43 


>WA 
>MU 
>L4 
JT 


2LX 
>LJ 


>GD 
»YD 
)YE 
TD 
)NB 
>ME 
DE 
>HB 
>LA 
?LF 
>PC 
?GA 
?LE 
>UU 
>NH 
GC 
>Kk 
3YB 
>YC 
>BC 
)EA 


>GW 


>EV 


)YH 
>XK 
>WD 
>LU 
YF 
»YG 
>CK 
>HK 
>FB 
>FD 
>VJ 
2YA 
>LX 
)AN 
>TX 
LD 
>QC 
>LF 
>vC 





3580 FOR ADR=40006 TO 40011 ?TF 
3590 READ VALEUR >LJ 


3680 " 
3600 POKE ADR, VALEUR >0Y | 3690 ” 

3610 NEXT ADR >NC 

3620 * ND | 5,63 

3630 * ### INSCRIPTIONS :LAZER #4 )YE 

À ,255, 255,255 


3640 MOVE 23.50:DRANR -5,0,3:DRANR >HC 
0,10:MHOVER 9,-5:DRAWR 0,10:DRAUR 5, 
O:DRAUR 0,-10:MÜVER 0.5:DRAWR -5.0: 
MOVER 10,3:DRAUR 5,0:DRAUR 0,5:DRAW 
R -5.0:DRAWR 0,4:DRAWR 5,0:MOVER 9. 
-4:DRAWR -5,0:DRAUR O,10:DRAUR 5,0: 
MOVER -5,-5:DRANR 3,0 
3650 HOVER 6,1:DRAWR 0, 10:DRAWR 6,0 >PU 
:DRAUR 0,-4:DRANR -6,0:DRAUR 6, -6 
3660 HOVE 580,85:DRAUR 0,-10:DRAUR >RK 
5,0:MOVER 4,-6:DRAWR 0,10:DRAUR 5,0 ,255 
:DRAWR O,-10:MÜVER 0,5:DRAUR -5,0:M 
OVER 15.-3:DRAWR -5,0:DRAUR 0.-4:DR 
AUR 5,0:DRAUR 0,-5:DRAWR -5,0:MOVER 
14,3:DRAUR -5.0:DRAUR 0,-10:DRAWR 4,8 
5,0:MOVER -5,5:DRAWR 3,0 
3670 MOVER 6,-11:DRAUR 0,10:DRAUR 6 >TM | 2,132 


54,255 


.255,0,0 


92,0,0 


7,255 


55,255, 252 









HORS-SERIE 17 


DISC CPC 
D HS 17 


= RUAE Save \ Q 140 F non abonné 
\Q 110 F abonné 

















Nom : Prénom : 
Adresse : 

Code postal : Ville : 
Date : Signature 








| ,0:DRAWR 0,-4:DRAUR -6,0:DRAUR 6, -6 


242 REDEFINITIONS #44 >2 
3700 SYMBOL 240,0.1.3.63,255,255,25 >EU j 


3710 SYMBÜL 241,192,192,192,192,193 >NP | 
3720 SYMBOL 242,0,0,0,255,254,252,2 >GV 


3730 SYMBOL 243,0,3,3.3,3.3,.0.0 2XN 
3740 SYMBOL 244,195,255,255,255,255 JA 


3750 SYHBOL 245,0,192,192,192,192,1 ?GG 
3760 SYMBOL Z46,0,0,0,255,127,63,12 FN 
| 3770 SYMBOL 247,3,3,3,3,131,255,255 >ED 
3780 SYMBOÜL 248,0,128,192,252,255,2 LV 
3790 SYMBOL 249,128,16,44,18,78.0,3 >EB 


3800 SYMBOL 250,130,0,52,220,48,2,3 >FN 





3810 ex$=CHR$(249)+CHR$(250)1+CHR$(2 >EU 
à9) 


3820 im$=CHR$(32)+CHR$(250)+CHR$ (32 >CX 


2YK 


3830 ad$=CHRS(240)+CHRS$(241)+CHRS (2 >NC 
42)+CHRS (32) 

3840 da$=CHRS(32)+CHRS(246)+CHRS (ZA >PP 
T)+CHKS (248) : 

3850 cd$=CHR$ (243) +CHR$(244)+CHRS$ (2 PH 
45) +CHRS (32) 

| 3860 de$=CHRS(32)4CHRS(243)+#CHRS (ZA PJ 
4 +CHRS (245) 








3870 ' >LA 
3880 *  +#a CADRANS D'AVARIES #44 >2B 
3890 xa=240 >UH 
3900 FOR a:i TO 5 >BG 
3910 FOR y=70 TO 90 >HC 
3920 HOVE xa,y >XD 
3930 DRAW xa+20,y,2 2NF 
3940 NEXT >LH 
3950 XA=XA+35 >MK 
3960 NEXT >LK 
3970 RETURN GC 
3980 ...FIN DE LIST... >PQ 


ANCIENS NUMEROS 





FT HORS-SERIE 
p Qn° 4, 6,7, 8,9, 10, 11, 12, 13, 14 








I 15, lé 15F 
l + DISQUETTES HORS-SERIE 

HD HS:1,2,3,4,5,6,7,8,9,10, 
I 11:12143,1415,16 140 F 


I Chaque disquette comporte tous les programmes du n° hors-série cor- 
respondant. Les abonnés à CPC bénéficient du tarif unitaire de 119F 
pour les disquettes. 

















i Nom : Prénom : 
I Adresse : 

| Code postal : Ville : 

| Date : Signature 


I Entourez le(s) numéro(s) choisis. 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre des Editions SORACOM. Retournez le(s) coupon(s) ou une photocopie à Editions SORACOM - La Haie 


de Pan - 35170 BRUZ. 
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Microjarnac est un jeu de 
réflexion qui se joue 

à deux (ou par équipe). 

Les joueurs s'affrontent chacun 
sur leur tableau de jeu qui 
comporte 8 lignes, en essayant 
d'y écrire des mots plus longs 
les uns que les autres. 


ous les coups vous sont permis, 

même le vol d'un mot: si votre 
adversaire en oublie un, vous pourrez alors 
déclarer JARNAC et lui voler ce mot pour 
l'écrire sur votre jeu. 

Bien entendu, pour chaque mot écrit 
vous marquez des points et le gagnant 
est celui qui en a le plus, la partie s'arrê- 
tant dès qu'un joueur a rempli ses 8 li- 
gnes. 


UMR TITI TITI TITI E TE EIT II ITTI STE )LA 
20 ' #1 #1 LB 
30 ' ## MICROJARNAC ##  )LC 
40 #4 #4  >LD 
50 ? #4 par ## )LE 
60 ' #4 #*# )LF 
10" ## Christophe Vernet ## »LG 
80 ? ## ## )»LH 
90 ! ## mars 1989 ## )LJ 
100 '## ## RB 
RU TIC CI TEE TTEITIEITIIIIIIII TI EU 
120 ? RD 
130 MODE 1:BORDER 0:INK 0,0:INK 1,2 DLL 
3:INK 2,17 

140 RANDOMIZE TIME >NU 
150 GOSUB 210 GJ 
160 INK 3,22 JU 
170 PEN 3:LOCATE 15,3:PRINT "Presen >KY 
te:" 

180 PEN 3:LOCATE 15,23:PRINT "PLEAS »XD 
E WAIT...":LOCATE 1,1:PEN 1:PRINT 
"CHRISTOPHE VERNET":LOCATE 40,1:PRI 

NT CHR$(164) 

190 RUN "jarnac" >NQ 
200 ! >RC 





MICROJARNAC 







Tous les mots du dictionnaire (sauf 
les noms propres et les verbes conjugués) 
sont autorisés. 

Mais je n'en dis pas plus, les règles sont 


+ 


210 RESTORE 290 )DE 
220 FOR i=1 TO 151 >LJ 
230 READ x,y >CK 


240 c=INT(RND#10):1F c>0 AND c<5 TH >MH 

EN PEN 1:SOUND 1,25,4,7 ELSE PEN 2 

250 LOCATE x,y:PRINT CHR$(233) 

260 NEXT i 

270 RETURN 

280 ? 

290 DATA 10,7,10,8,10,9,10,10,10,11 

,10,12,11,68,12,9,13,8,14,7,14,B,14, 

9,14,10,14,11,14,12,17,5,17,7,17,8, 

17,9,17,10,17,11,17,12,20,7,20,8,20 

9,20,10,20,11,20,12,21,7,21,12,22, 

7,22,12,23,7,23,12,26,7,26,8,26,9,2 

6,10,26,11,26,12,27,7,27,9,27,10,28 

.7,28,9 

300 DATA 28,11,29,7,29,8,29,9,29, 12 

» 32, 7,32,8,32,9,32,10,32,11,32,12,3 
8 


JYU 
'NG 
ZE 
)TA 
>DT 


TX 


v 


ble pouf 
NS 464 
C b64 


P 
Re CPC 6128 


le de 











comprises dans le programme. 


Sauvez le premier listing sous le nom 





3,7,33,12,34,7,34,12,35,7,35,8,35,9 
,35,10,35,11,35,12,4,14,5,14,6, 14,7 
,14,7,15,7,16,7,17,7,18,7,19,6,19,8 
,14 

310 DATA 11,14,11,15,11,16,11,17,11 
,18,11,19,12,14,12,16,13,14,13,16,1 
4,14,14,15,14,16,14,17,14,18, 14,19, 
17,14,17,15,17,16,17,17,17,18,17, 19 
,18,14,18,16,18,17,19,14,19,16,19,1 
8,20, 14,20, 15, 20,16, 20, 19 

320 DATA 23, 14,23, 15,23, 16,23, 17, 23 
,18,23,19,24,15,25, 16, 26, 14,26, 15,2 
6,16,26,17, 26, 18,26, 19,29, 14,29, 15, 
29,16, 29, 17,29, 18, 29, 19,30, 14, 30, 17 
,31,14,31,17,32,14, 32, 15,32, 16, 32,1 
7,32,18, 32, 19 

330 DATA 35,14,35,15,35, 16,35, 17, 35 
18,35, 19,36, 14,36, 19, 37, 14,37,19,3 
8, 14,38, 19 


de votre choix (MICRO par exemple) et 
uxième sous le nom de JARNAC. 


v 


TQ 


LO PCR NUNUUNUES 
20 's## #1 
30 '## MICROJARNAC # 
40 ‘#4 #4 
50 "## by Christophe Vernet ## 
60 '## #1 
70 ‘#4 sars 1989 # 
80 ?’## #+ 
CINE TIETETET ETES ETES ESES ETES 
100 ? 


110 LOCATE 9,23:PEN 1:PRINT “Voulez 
-vous les regles ? (0/N)" 

120 g$=UPPER$(INKEYS):1F g$="" THEN 
120 

130 IF g$="0" THEN 4290 

140 IF g$="N" THEN 220 


150 GOTO 120 

160 ? 

170 PHMMNNNEUNNUNEENNUE 
180 '## #1 
190 ?’## DESSIN Hi 
200 '## FEI 


PAU TETECTEEEETEETIS ETES ITIEE 

220 ? 

230 CLS:G0SUB 4090 

240 MODE 1:BORDER O:INK 0,0:INK 1,6 
: INK 2,25: INK 3,17 

250 ! 
260 ’ demande des nons des joueurs 
270 ? 

280 LOCATE 6,2:PEN 2:PRINT "--- M 

ICROJARNAC ---*:1-6 

290 FOR i=1 TO 31 

300 LOCATE x,2:POKE 43001, x-1:POKE 

43003, 1:CALL 43000 

310 x=x+1:NEXT ji 

320 LOCATE 1,25:PEN 2:PRINT CHR$(16 
4); "Christophe Vernet" 

330 LOCATE 6,4:PEN 1:PRINT "------- 


340 LOCATE 3,10:PEN 3: INPUT "Joueur 
iivotre nom S.V.P"; joueur1$ 
350 LOCATE 3,11:PEN 3: INPUT 
un nosbre";z 

360 LOCATE 3,15:PEN 3: INPUT 
2:votre nom S.V.P"; joueur2$ 
370 LOCATE 3,16:PEN 3: INPUT 
egalement un nosbre";zi 
380 LOCATE 2,20:PEN 1:PRINT "Et mai 
ntenant,que le meuilleur gagne !!" 
390 ENT 1,100,-20,10 


“entrez 
"Joueur 


“entrez 








400 SOUND 1,239,100,15,,1 


410 FOR i=1 TO {500:NEXT i 
420 ? 
430 Initialisation 
440 


450 k=TIME#z#21:RANDOMIZE k 

460 MODE i:BORDER 3:INK 0,3:INK 1,2 
6:INK 2,22:INK 3,15:WINDOW #1,1,40, 
22,25:PAPER#1,0 

470 j=0:t=0:s1-0:52-0:L1=3:L2=3 
480 joueur1={:joueur2=2:x1=19:x2=23 
:2=0: ja=0 

490 q1=0:q2=0:adri=43190:adr2=43390 
500 FOR i=43100 TO 43400 

510 POKE i,0 

520 NEXT i 

530 ? 
540 
550 ? 
560 x=5:z=49:FO0R i=1 TO 6 

570 LOCATE x,2:PEN 2:PRINT CHR$(z) 
580 x=xt2:z=z+1:NEXT i 

590 x=30:z=49:FOR i=1 TO 6 

600 LOCATE x,2:PEN 2:PRINT CHR$(z) 
610 x=x+2:z=2+1:NEXT i 

620 x=24:y-96 

630 FOR i=1 TO 8 

640 PLOT x,y:DRAW x,368,1 

650 x=x+32:NEXT i 

660 x=392:y=96 

670 FOR i=1 TO 8 

680 PLOT x,y:DRAW x,368,1 

690 x=x+32:NEXT i 

100 x=640:y=369:PLOT 0,369:DRAW x, y 
Î 
? 

710 x=320:PLOT x,96:DRAW x, 400, 1: x= 
333:PLOT x,96:DRAW x,400, 1 

720 y=3:z=49 

730 FOR i=1 TO 8 

740 LOCATE 21,y:PEN 2:PRINT CHR$(z) 

750 y=y+2:z=2+1 

760 NEXT i 

770 PEN 3:LOCATE 10,21:PRINT "MH | C 
ROJARNAC" 

780 PLOT 0,95:DRAW 640,95,1:PLOT O, 
94:DRAW 640,94, 1 

790 IF j=0 THEN d=6 ELSE d={ 

800 LOCATE 1,1:PEN 3:PRINT joueur{$ 
:LOCATE 22,1:PRINT joueur2$ 

810 LOCATE 16,1:PEN 1:PRINT s1:LOCA 
TE 36,1:PRINT 52 

820 ? 

830 ? 
CITIMETTEETESENTISEIISE III IIS 
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Dessin du tableau de jeu 


DD 
QG 
>2D 
NF 








850 ‘## #4 >TD 
860 ’## TIRAGE DES LETTRES ## )TE 
870 ’## LL >TF 
CHIMETTESTESEES SET SES SE ESS ESS SE) >TG 
890 >TH 
900 initialisation >RK 
910 ? )TA 


920 d:6: joueur$= joueuri$: joueur=jou >MV 

euri 

930 CLS#1:1F j=2 THEN d={ )TC 

940 IF joueur=joueuri THEN adr=adri >VE 
ELSE adr=adr2 


950 ja=0 Del 
960 " >TF 
970 ? Tirage des lettres TG 
980 ? >TH 
990 ON joueur G0TO 1000, 1010 >VH 


1000 IF L1=19 AND x1=18 THEN GOTO 1 >MN 
260 ELSE 1020 

1010 IF L2=19 AND x2=24 THEN GOTO 1 >MN 
260 ELSE 1020 

1020 t-0:LOCATE#,5,2:PEN#1,2:PRINT >MG 
#i, joueur$;" tirez ";d;"lettre(s)": 
LOCATE #1,5,4:PRINT #1,"Appuyez";d; 
“fois sur 'T'" 

1030 IF joueur=joueuri THEN x=xi:L= »LB 
Li:q=qi ELSE x=x2:L=L2:q=q2 

1040 PEN 3 >FG 
1050 g$=INKEYS:1F g$="" THEN 1050  >ZK 
1060 IF g$="t" OR g$="T" THEN 1080 >YE 


1070 GOTO 1050 >MB 
1080 SOUND 1,119,25,7 >PD 
1090 t=t+#1 >HD 


1100 a=ROUND(((RND#10)#(RND#10)),0) >TB 
:c= INT (RND#10) 

1110 IF c>=3 OR c=0 THEN c=1 >UR 
1120 a=a#9+(ROUND (RND#10)) JUE 
1130 IF a)256 THEN a=a-256:G0T0 113 >LH 
0 ELSE 1140 

1140 ca=65+INT(a/10) >NC 
1150 IF ca>=87 THEN 1160 ELSE 1170 >ZB 
1160 IF c=1 THEN ca=69 ELSE 1170  >1Q 
1170 POKE adr,ca )LT 
1180 LOCATE x,L:PEN 1:PRINT CHR$(ca >CC 
):POKE 43001,x-1:POKE 43003,L-1:CAL 

L 43000 

1190 L=L+2:adr=adr+i:1F t=d THEN q= >BG 
q+t:G0TO 1200 ELSE 1050 . 

1200 IF joueur=joueuri THEN qi=q:Li >YB 
=L:adri=adr ELSE q2=q:L2=L:adr2=adr 
1210 IF L=19 THEN 1220 ELSE 1380  >XU 
1220 IF x=18 OR x=24 THEN 1390 ELSE >DL 
1380 


1230 ? 

1240 ' Efface 16 lettres non utilis 
ees 

1250 ? 

1260 ON joueur GOTO 1270,1280 

1270 x=18:xx=19:L=3:a=43190:GOT0 12 
90 

1280 x=23:xx=24:L=3:a=43390:GO0T0 12 
90 

1290 FOR i=1 TO 16 

1300 LOCATE x,L:PRINT CHR$(32) :LOCA 
TE xx,L:PRINT CHR$(32) 

1310 L=L+{:NEXT i 

1320 FOR i=1 TO 16 

1330 POKE a,0:a=ati:NEXT i 

1340 ON joueur GOTO 1350,1360 

1350 L1=3:adr1=43190:q1=0:x1=19:GO0T 
0 930 

1360 L2=3:adr2=43390: q2=0:x2=23: GOT 
0 930 

1370 

1380 IF joueur: joueur THEN Li=3:x1 
=18 ELSE x2=24:L2=3 

1390 IF j=2 THEN d=6:j=0 

1400 IF d=6 AND joueur=2 THEN ji=1 
1410 ? 


1420 PHHHMMMENMURNNUENUUNNUNUEEE 
1430 ‘#4 #+ 
1440 "#4 JEU #1 
1450 '## # 
1460 "HAHHMMEMNUENNNENNNENNUNEEEX 
1470 ? 

1480 " Question si sot + de 3 lett 
res 

1490 ? 


1500 CLS#1: ja=0:PEN#2, 2: LOCATE#1,3, 
1:PRINT#{, joueur$:" vous avez le ch 
oix entre:":LOCATE #1,8,2:PRINT#1," 
-- Ecrire un sot":LOCATE #1,8,3:PR 
INT#1,"-- Jarnac" 

1510 LOCATE #1,8,4:PRINT#{,"-- P)as 
ser votre tour" 

1520 g$=INKEYS:1F g$="" THEN 1520 
1530 IF g$="e" OR g$="E" THEN 1760 
1540 IF g$="p" OR g$="P" THEN 1700 
1550 IF g$="j" OR g$="J" THEN 1570 
1560 GOTO 1520 
1570 ? 

1580 ? 

1590 

1600 ja=1 

1610 ENV 1,127,-50,200 
1620 ENT 1,239,12,3 


Jarnac 





>AD 


>ZP 
)YE 
)YY 
)YR 
>HH 
YF 
>YG 
)YH 
>CJ 
>NH 
>LF 





1630 SOUND 1,10,50,15,1,1 

1640 CLS#1:LOCATE#1,12,2:PRINT#1, "J 
ARNAC" 

1650 FOR i=1 TO 1500:NEXT i:PEN#2,2 


1660 CLS#1:LOCATE#1,2,2:PRINT#1, *Ec 
rivez votre sot norsalement.":LOCAT 

E#1,2,3:PRINT#1, "il s'affichera sur 
votre jeu." 

1670 FOR i=1 TO 2000:NEXT i:G0TO 17 
70 

1680 

1690 ? 

1700 IF j-0 THEN d=6 ELSE d=1 

1710 IF joueur=joueuri THEN joueur= 
joueur2: joueur$=joueur2$ ELSE joueu 
r= joueur { : joueur$= joueur 1$ 


1720 GOTO 930 
1730 
1740 ? Acceptation du mot 


1750 ? 

1760 ENT 1,100, -20, 10:SOUND 1,239,5 
0,15,,1 

1770 CLS#1:LOCATE#1,11,2:PRINT#1,"C 
e sot est-il accepte" :LOCATE#1, 7,3: 
PRINT #{,"par votre adversaire ? (0 
IN" 

1780 g$=INKEYS:1F g$="" THEN 1780 
1790 IF g$="o" OR g$="0" THEN 1820 


1800 IF g$="n" OR g$="N" THEN ja:0: 
GOTO 3640 
1810 GOTO 1780 


1820 IF j-0 THEN d=6 ELSE d=1 
1830 ! 

1840 *”  Nosbre de lettres 
1850 ? 


1860 CLS#1:PEN#1,2:LOCATE# 1, 4,2: INP 

UT#1, "Combien de lettres ?";N 

1870 POKE 43099,N 

1880 IF N€3 THEN LOCATE#{,4,2:PRINT 
#1, "Mot de soins de trois lettres 
interdits" ELSE GOTO 1900 

1890 FOR i=1 TO 1000:NEXT i:G0T0 18 

60 

1900 ? 

1910 "Conception not grace a un aut 
re 

1920 ? 

1930 CLS#1:PRINT#1,"Ecrivez-vous ce 
sot avec les lettres ":PRINT#1, "d’ 
un autre aot deja place sur le jeu 

(O/N)?* 


10 


>2G 
»YG 


)JV 


>ND 
)VP 
)YE 
)YF 
YYG 
VE 


>LP 


>VH 


>DK 


»YC 
>YD 


)YE 
> 





1940 g$=INKEYS:1F g$="" THEN 1940 
1950 IF g$="o" OR g$="0* THEN 1980 
1960 IF g$="n" OR g$="N" THEN nb-0: 
1i=0:G0T0 2050 

1970 GOTO 1940 

1980 CLS#1:PRINT#1," Indiquez alors 
le nosbre de nouvelles": INPUT#1,"le 
ttres que vous allez utiliser.",nb 
1990 IF ja=1 THEN 2000 ELSE GOTO 20 
50 

2000 CLS#1:LOCATE#1,1,2:PRINT#1,"Et 
puisque vous avez dit jarnac,":LOC 
ATE#1,1,3:PRINT#, "quelle ligne de 
votre adversaire " 

2010 LOCATEH, 4,4: INPUTE{ "utilisez 
-vous";l)j 
2020 

2030 ? 
2040 ? 
2050 CLS#1:LOCATE#1, 1,2: INPUT#{, "Su 
r quelle ligne inscrivez-vous votre 

not ?(de 1 a 8)";ligne 

2060 POKE 43098, ligne 

2070 IF ligne(i OR ligne>8 THEN 208 
0 ELSE 2110 

2080 CLS#1:LOCATE#1,3,2:PRINT#1{, "Er 
reur:ligne interdite." 

2090 FOR i=1 TO 1000:NEXT i 

2100 GOTO 1900 


Demande de la ligne 


2110 IF ja=i THEN 2120 ELSE 1j=lign 


e:G0T0 2130 

2120 IF joueur=joueuri THEN joueur= 
joueur2 ELSE joueur= joueur 

2130 ON joueur GOTO 2140,2150 

2140 ad=43100+(1j#10) :GOTO 2160 
2150 ad=43300+(1 #10) :G0T0 2160 
2160 adres=ad:adre=adres 

2170 IF ligne=i THEN ligne=3:G0T0 2 
250 
2180 
250 
2190 
250 
2200 
250 
2210 
2250 
2220 
2250 
2230 
2250 
2240 
2250 


IF ligne=2 THEN ligne=5:G0T0 2 
IF ligne-=3 THEN ligne=7:G0T0 2 
IF ligne=4 THEN ligne-9:G0T0 2 
IF ligne=5 THEN ligne=11:GO0TO 
IF ligne=6 THEN ligne=13:G0T0 
IF ligne=7 THEN ligne=15:GO0TO 


IF ligne=8 THEN ligne={7:GO0T0 


)2C 
>YH 
>PC 





11=3:G07T0 2360 
1j=5:G0T0 2360 
1j=7:G070 2360 
1j=9:G0TO 2360 
1j=11:G0T0 2360 
1j=13:G0T0 2360 
1j=15:G0T0 2360 
1j=17:G0T0 2360 


2250 IF 1j=1 THEN 
2260 IF 1j=2 THEN 
22170 IF 1j=3 THEN 
2280 IF 1j=4 THEN 
2290 IF 1j=5 THEN 
2300 IF 1j=6 THEN 
2310 IF 1j=7 THEN 
2320 IF 1j=8 THEN 
2330 ? 
2340 ? 
2350 ? 
2360 PEN 3 

2370 CLS#1:LOCATE#1, 10,2:PRINT#1,"T 
apez votre sot:" 

2380 t=0:m=0 

2390 ON joueur GOTO 2400,2410 

2400 adr=43190:p=3:f=ligne:e=1:q=qi 
:GOTO 2420 

2410 adr=43390:p-3:f=ligne:e=26:q=q 
2:G0T0 2420 

2420 1F ja=1 THEN 2430 ELSE 2440 
2430 IF e=1 THEN e=26 ELSE e=1 

2440 IF joueur: joueuri THEN x=19 EL 
SE x=23 

2450 SOUND 1,119,25,7 

2460 CALL 43074 

2470 ca=PEEK(43073)-32 

2480 ' 

290 ' Comparaison avec lettres pla 
cees 

2500 ? 

2510 IF ca=PEEK(ad) THEN GOTO 2560 
2520 ad=adti:a=nti 

2530 IF ad=adrest8-t THEN 2540 ELSE 
2550 

2540 ad=adres:#=0:G0T0 2640 

2550 GOTO 2510 

2560 POKE ad,PEEK(ad-a):POKE ad-#,c 
a 

2570 LOCATE e,f:PRINT CHR$(ca) :POKE 
43001,e-1:POKE 43003,f-1:CALL 4300 
0 

2580 e=e+2:adres=adrest{:ad=adres:t 
=t+{:n=0 

2590 IF t=N THEN 2860 

2600 GOTO 2440 

2610 ? 

2620 ’ Comparaison lettres restante 

s 

2630 

2640 IF ca=PEEK(adr) THEN GOTO 2710 

2650 adr=adrti:p=p+2:a=mt1 

2660 IF m=q THEN 2750 

2670 IF p=19 THEN p=3:G0T0 2680 ELS 


Inscription du sot 





»YB 
>YC 


>YD 


>BU 
>vC 


NX 
>FG 





E 2690 


2680 IF joueur=joueur{ THEN 1:18 EL 
SE x=24 

2690 IF s=q THEN 2750 

2700 GOTO 2640 

2710 POKE adr,0:LOCATE x,p:PRINT CH 
R$(32):LOCATE x,p+1:PRINT CHR$(32) 
2720 IF joueur=joueuri THEN adr=431 
90 ELSE adr-43390 

2730 a=0 

2740 p=3:G0T0 2790 

2750 CLS#1:PEN#1,2:LOCATE#1,4,2:PRI 
NT#1, "Cette lettre est mauvaise." 
2760 FOR i=1 TO 1000:NEXT i:CLS#1:L 
OCATE#1,4,2:PRINT#1, "Tapez une nouv 
elle lettre.":p=3:m0 

2770 IF joueur: joueuri THEN adr=431 
90 ELSE adr-43390 

2780 GOTO 2440 

2790 LOCATE e,f:PRINT CHR$(ca) :POKE 
43001,e-1:POKE 43003,f-1:CALL 4300 
0 

2800 FOR i=adre+9 TO ad STEP -1 
2810 POKE i,PEEK(i-1) 

2820 NEÏT i 

2830 POKE ad,ca:ad=adti:adres=adres 
#1 

2840 t=t+{:1F t=N THEN 2860 ELSE 28 
50 

2850 e=et+2:G0T0 2440 

2860 IF nb=0 THEN 2880 ELSE 2870 
2870 IF q-nb=0 THEN 2890 ELSE 2940 
2880 IF q-N=0 THEN 2890 FLSE 2940 
2890 IF joueur=joueuri THEN adri=43 
190:q1=0:L1=3 ELSE adr2=43390: q2-0: 
L2=3 

2900 GOTO 3210 

2910 ? 

2920 'reinscription pions non utili 
ses 

2930 ? 

2940 IF nb=0 THEN 2950 ELSE N=nb 
2950 PEN 1 

2960 ON joueur GOTO 2970,2980 


2970 adr=43190:x=19:xx=18:q=q1 :GOTO 


2990 
2980 adr=43390:x=23:xx=24 : q=q2:GOTO 

2990 
2990 f=3:FO0R i=1 TO 16:LOCATE x, f:P 
RINT CHR$(32):f=f+1:NEXT i 
3000 f=3:FO0R i=1 TO 16:LOCATE xx, f: 
PRINT CHR$(32):f=f+#{:NEXT i 
3010 i=0:s==0 
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)AV 


)AF 





3020 a=PEEK(adr) 

3030 IF a=0 THEN GOTO 3040 ELSE 305 
0 

3040 adr=adr+i:ma=mti:i=it1:G0T0 306 
0 

3050 POKE adr,&0:POKE adr-m,a:i=iti 
:adr=adrt{ 

3060 IF i=q+i THEN 3070 ELSE 3020 
3070 f-3:#=0:1F joueur=joueuri THEN 
adri=43190+qi-N:adr=43190 ELSE adr 
2=43390+q2-N:adr=43390 

3080 ca=PEEK(adr):LOCATE x, f:PRINT 

CHR$(ca) 

3090 POKE 43001,x-1:POKE 43003, f-1: 
CALL 43000 

3100 adr=adr+i:a=mti:f=f+2 

3110 IF f=19 THEN 3120 ELSE 3130 

3120 IF joueur: joueuri THEN x=18:f= 
3 ELSE x=24:f=3 

3130 IF a=g-N THEN 3140 ELSE 3080 
3140 IF joueur=joueuri THEN qi=q-N 

ELSE q2=q-N 

3150 IF x=18 OR x=24 THEN 3160 ELSE 
3170 

3160 IF joueur=joueuri THEN Li=f :G0 

TO 3210 ELSE L2-f:GOT0 3210 

3170 IF joueur=joueuri THEN L1=3+2# 

gi:x1=19 ELSE L2=3+2#q2:x2=23 

3180 ? 

3190 ? 
nac 

3200 ? 

3210 IF ja=1 THEN 3220 ELSE 3440 

3220 z=PEEK(43098) 

3230 ON joueur GOTO 3240,3250 

3240 1i=43300+z+10:G0T0 3260 

3250 1i=43100+z#10:G0T0 3260 

3260 FOR i=1 TO 8 

3270 POKE li,PEEK(adre) 

3280 adre=adreti:1i=1it{:NEXT i 
3290 adre=adre-8 

3300 FOR i=1 TO 8 

3310 POKE adre,0 

3320 adre=adreti:NEXT i 

3330 IF 1i=0 THEN 3400 

3340 ON joueur GOTO 3350, 3360 

3350 e=1:f=1j:G0T0 3370 

3360 e=26:f-1j:G0T0 3370 

3370 FOR i=1 TO 8 

3380 LOCATE e,f:PRINT CHR$(32):POKE 
43001,e-1:P0KE 43003,f-1:CALL 4300 

0 

3390 e=et2:NEXT i 


Echange des menoires si jar 


)XH 
)XC 
Li 
»K 
)VR 
>VQ 
>CG 
TU 
AA 
)LY 
>CB 
>HK 
TX 
>PQ 
JR 
>RD 
>TF 
>CJ 
JUN 


>LN 


3400 IF joueur-joueuri THEN joueur= 
joueur? ELSE joueur: joueur { 

3410 
3420 
3430 
3440 N=PEEK(43099) 

3450 1F N=3 THEN 5-1 

3460 IF N=4 THEN 5=2 

3470 IF N=5 THEN 5=3 

3480 IF N=6 THEN 5-4 

3490 IF N=7 THEN 5=5 

3500 IF N=-8 THEN 5-6 

3510 CLS#1:LOCATES1,4,2:PRINT#1, "Vo 
us sarquez'";s;"points" 

3520 ON joueur GOTO 3530,3540 

3530 s1=sits:a=s1:x-16:G0T0 3550 
3540 52=52+5:a=52:x=36:G0T0 3550 
3550 LOCATE x,1:PEN 1:PRINT a 

3560 1F ja=i THEN 3570 ELSE 3630 
3570 IF joueur-joueuri THEN joueur= 
joueur2 ELSE joueur=joueuri 

3580 ON joueur GOTO 3590, 3600 

3590 s1=s1-s:a=si:x=16:G0T0 3610 
3600 52=52-s:a=s2:x=36:G0T0 3610 
3610 LOCATE x,1:PEN 1:PRINT a 

3620 IF joueur=joueuri THEN joueur= 
joueur? ELSE joueur-joueuri 

3630 FOR i=1 TO 2000:NEXT i:G0T0 36 
50 

3640 IF joueur=joueuri THEN joueur: 
joueur2: joueur$= joueur2$ ELSE joueu 
r= joueur {: joueur$= joueur {$ 

3650 IF j=0 AND joueur=1 THEN j=2:G 
0TO 3680 

3660 IF ja=1 THEN GOTO 3670 ELSE 36 
80 

3670 IF ligne=17 THEN 3760 ELSE 139 
0 

3680 IF ligne-17 THEN 3760 ELSE 930 
3690 

3700 "ARR EANMENÉENNUUEEE 


Score 


3710 '## #+ 
3720 #1 GAGNE #1 
3730 '## #4 
3740 PHHANMENNÉHENMERÉNEENNNEENRX 
3750 ? 


3760 LOCATE 13,10:PEN 2:PRINT "FIN 
DU JEU" 

3770 x:13:FOR i=1 TO 12 

3780 POKE 43001, x-1:POKE 43003, 9:CA 

LL 43000 

3790 x=xti:NEXT i 

3800 ENV 1,100,1,1:ENT 1,100,5,3 





>PR 


)YA 
)YB 
)YC 
>HB 
)NB 
NE 
>NH 
NL 
>NP 
>NH 
M] 


JR 
)AF 
>AN 
)XE 
DC 
>PA 


>B 
)AL 
JAH 
)XB 
>P4 


>DD 


>UY 


>KG 


)CE 


>BF 


DAY 
>ZA 
>YC 
>YD 
)YE 
)YF 
>YG 
>YH 
>LG 


)QL 
JL 


>HZ 
)1B 


| 





3810 SOUND 1,119,300,7,5,1 

3820 FOR i=1 TO 2500:NEXT 1 

3830 MODE 1 

3840 IF 51-52 THEN 3850 ELSE 3890 
3850 LOCATE 10,10:PEN 2:PRINT "Vous 
etes ex aequo !!" 

3860 x=10:FO0R i=1 TO 40 

3870 POKE 43001,x-1:POKE 43003,9:CA 
LL 43000 

3880 x=1+1:NEXT i:GOTO 3960 

3890 IF 5152 THEN 3900 ELSE 3910 
3900 joueur$= joueur1$:G0T0 3920 
3910 joueur$= joueur2$:G0T0 3920 
3920 LOCATE 10,10:PEN 2:PRINT joueu 
r$;" a gagne !!!" 

3930 x=10:FOR i=1 TO 40 

3940 POKE 43001,x-1:POKE 43003,9:CA 
LL 43000 

3950 x=x+1:NEXT i 

3960 LOCATE 13,23:PRINT "UNE AUTRE 
PARTIE (O/N)?" 

3970 g$=INKEYS:1F g$="" THEN 3970 
3980 IF g$="o" OR g$="0" THEN 110 
3990 1F g$="n" OR g$="N" THEN 4010 
4000 GOTO 3970 

4010 MODE 1:END 

4020 

CIRE EFEEEE EEE SEE STESSST 
4040 '## ## 
4050 ‘#4 DATA DOUBLE HAUTEUR #+# 
4060 ’## #4 
AO7O PHAMMMMNNMEENNMENNEENNNEENE 
4080 ? 

4090 MEMORY 41999 

4100 RESTORE 4160 

4110 FOR i=43000 TO 43095 

4120 READ a$ 

4130 a=VAL("£&"+a$):POKE i,a 

4140 NEXT i 

4150 RETURN 

4160 DATA 26,00,2E,00,CD, 1A,BC, 01,0 
0,38,09,E5,EB,E1,01,50 

4170 DATA 00,E5,EB,09,EB,E1,E5,D5,3 
E,01,01,02,00,ED,B0,B7 

4180 DATA 28,0C,D1,E1,7A,D6,08,57,E 
5,D5,3E,00,18,EC,D1,E1 

4190 DATA 7C,D6,08,FE,C0,67,D8, 7A,D 
6,08,FE,C0,57,30,D7,EB 

4200 DATA 01,B0,3F,09,EB, 18,CF, 00,0 
0,00, CD, 06, BB, 32,41, AB 

4210 DATA C9,00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00,00, 00 

4220 ? 
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)TQ 
UU 
>PK 
>YN 
>DZ 


)QJ 
)JL 


JF 
>YH 
AG 
AJ 
>YD 


>0G 
)JJ 


>HX 
NT 


)ZN 
DIV 
NYC 





CYR'OMAEEEEECEEESEEE ESS EESEES ESS SE 


4240 '## ## 
4250 '#+ REGLES ## 
4260 '#+# ## 
[VIORETETTESEETENTTÉ FIST 
4280 ? 


4290 CLS:MODE 2:BORDER 13:1AK 0,13: 
INK 1,0:PAPER O:PEN { 


4300 LOCATE 30,1:PRINT ">> REGLES 
<<" 
4310 LOCATE 1,4:PRINT "1) BUT DU 
JEU" 


4320 PRINT "Le but de ce jeu est de 
sarquer le plus de points possible 
s,en ecrivant des ":PRINT "mots tou 
jours plus longs(mæais soins de 8 le 
ttres.),avant qu'un quelconque" :PRI 
NT “joueur resplisse les 8 lignes d 
e son tableau de jeu." 
4330 PRINT "Il faut donc eviter de 
remplir ses 8 lignes le plus vite p 
ossible,mais au":PRINT "contraire y 


faire un plus grand nombre de sot. 


4340 PRINT:PRINT:PRINT "11) 
LEMENT DE LA PARTIE 
4350 PRINT "Chaque joueur, lorsque c 
est son tour de jeu,a le choix ent 
re 3 possibilites:":PRINT:PRINT" 
--- { --- Ecrire un no 
t DE PLUS DE 3 LETTRES" 
4360 PRINT:PRINT "On peut donc soit 
ecrire un mot nouveau sur une lign 
e vide,ou concevoir un ":PRINT " mo 
t a partir des lettres d'un not dej 
a place sur le jeu et de nouvelles" 


DEROU 


4370 PRINT "lettres de sa reserve ( 
lettres blanches):il placera alors 
ce not":PRINT "IMPERATIVEMENT SUR L 
A MEME LIGNE QUE LE MOT D'ORIGINE." 


4380 LOCATE 32,23:PRINT "»> 
E << 

4390 GOSUB 4800 

4400 PRINT "II revele ensuite ce mo 
t a son adversaire qui doit lui dir 
e si le aot est ":PRINT "valable ou 
non. (Si non,alors il perd son tour 
de jeu.)" 

4410 PRINT "I1 doit ensuite entrer 
dans l'ordre,LE NOMBRE DE LETTRES D 

U HOT,LE NUMERO DE ":PRINT "LA LIGN 
E sur laquelle il ecrit ce sot.":PR 


ESPAC 


>YB 
»YC 
>YD 
)YE 
YF 
»YG 
>ZP 


LA 


QJ 


v 


GC 


INT "Ensuite,s'il ecrit un mot grac 
e a un autre mot deja place sur le 
jeu, il doit * 
4420 PRINT “entrer LE NOMBRE DE NOU 
VELLES LETTRES parai la reserve(en 
blanc) qu'il utilise." 
4430 PRINT:PRINT "Il ne lui reste p 
lus qu'a taper le mot lettre par le 
ttre." 
4440 PRINT:PRINT "TOUT JOUEUR QUI E 
CRIT UN MOT À LE DROIT DE RETIRER 1 
LETTRE ET DE CONTINUER ":PRINT "A 
JOUER JUSQU'A CE QU'IL PASSE SON TO 
UR." 
4450 PRINT:PRINT " L 
- 2 --- Jarnac" 
4460 PRINT:PRINT "C'est le coup le 
plus iaportant de la partie":PRINT 
"Si un joueur dit JARNAC,c'est qu'i 
| a resarque que son adversaire,apr 
es avoir'":PRINT "passe son tour,aur 
ait encore pu ecrire un mot qu'il n 
‘a malheureusement pas vu." 
4470 PRINT:PRINT "Ce joueur S'EMPAR 
E ALORS DE CE HMOT,en l'ecrivant sur 
une de ces lignes,et en":PRINT "sa 
rquant les points attribues pour ce 
sot,le joueur qui l'a laisse pass 
e," 

4480 PRINT “quant a lui,perd les le 
ttres,et voit son score diminuer du 
sese nosbre de ":PRINT "points " 
4490 LOCATE 32,25:PRINT ">> ESPAC 

E <<" 
4500 GOSUB 4800 
4510 PRINT "Le joueur, qui a dit Jar 
nac,doit donc egalement entrer le N 
OHBRE ":PRINT "DE LETTRES DU MOT,et 
LE NUMERO DE LA LIGNE DE JEU OÙ IL 
INSCRIT CELUI-CI." 
4520 PRINT:PRINT "De plus,si le mot 
est concu a partir des lettres d'u 
n.sot deja ecrit,":PRINT "IL DEVRA 
INDIQUER en plus du nombre de nouve 
Iles lettres qu'il utilise, ":PRINT 
"LE NUMERO DE LA LIGNE ADVERSE OÙ E 
ST INSCRIT LE MOT DE DEPART." 

4530 PRINT:PRINT " _ 
- 3--- Passer son tour" 

4540 PRINT:PRINT:PRINT "II1) 

NOMBRE DE POINTS " 

4550 PRINT "Le nombre de points est 
attribue selon le nombre de lettre 





TC 


>CN 


HV 


>CX 





s du not constitue":PRINT "Ils sont 
representes sur le tableau de jeu 
par les chiffres 1 a 6 situes'":PRIN 
T “en haut de chaque colonne d'afti 

chage." 

4560 PRINT "Ainsi,le chiffre situe 
en haut de la colonne ou est inscri 
t la derniere lettre":PRINT "du not 
,donne la valeur de ce sot." 

4570 PRINT:PRINT "Un mot de 3 lettr 
es donne { point":PRINT “Un aot de 

& lettres donne 2 points":PRINT "Un 
sot de 5 lettres donne 3 points":P 
RINT " etc...." 


4580 LOCATE 32,25:PRINT ">> ESPAC 
E <<" 

4590 GOSUB 4800 

4600 PRINT:PRINT "IV) GEN 


ERALITES 

4610 PRINT:PRINT "ATTENTION:se trou 

per dans certain nusero,entrainerai 

t de la part du prograsme":PRINT “d 

es reponses inattendues,et il serai 

t alors":PRINT "necessaire de stopp 

er la partie, et d'en reprendre une 
nouvelle." 

4620 PRINT:PRINT "Les nuseros { a 8 
situe verticalement entre les deux 
tableaux de jeu ":PRINT "represent 

ent les nuseros des 8 lignes de jeu 
" 

4630 PRINT:PRINT "Au debut du jeu,c 

haque joueur doit tirer pour la pre 

niere fois 6 lettres,":PRINT "ensui 

te le tirage ne sera plus que de 1 

lettre.":PRINT "Lorsque on ecrit un 
sot,il faut taper ses lettres apre 

s chaque bip sonore." 

4640 PRINT:PRINT "Attention:TOUTE L 

ETTRE POSEE SUR LE TABLEAU DE JEU N 

E PEUT ETRE ENLEVEE." 

4650 PRINT "Lorsque vous concevez u 

n sot a partir d'un autre, VOUS DEVE 

Z UTILISER TOUTE" :PRINT "LES LETTRE 

S DU HOT DE DEPART ." 

4660 PRINT:PRINT "VOUS NE POUVEZ EC 

RIRE SUR LA DERNIERE LIGNE (ce qui 

signifie que le jeu":PRINT "s'arret 

era),5’il RESTE D'AUTRES LIGNES QUI 

SONT VIDES." 

4670 PRINT:PRINT "Lorsqu'il y a 16 

lettres en reserve,et que vous ne p 

ouvez plus ":PRINT "jouer,alors cel 

les-ci s’effacent pour laisser la p 
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lace a de nouvelle lettres,":PRINT 
“peut-etre meilleures." 


4680 LOCATE 32,25:PRINT ">>  ESPAC 
LEE Ga 

4690 GOSUB 4800 

4700 PRINT:PRINT "V) EXEMPL 


E DE JEU" 

4710 PRINT:PRINT "Supposons que le 
joueur { est dans sa reserve 3 lett 

res:A,S,R ":PRINT "Sur la ligne nun 

ero { de son tableau de jeu,il vien 

t d'ecrire le mot TROP,de 4":PRINT 
“lettres.qui lui a rapporte 2 point 

si" 

4720 PRINT "II doit donc rejouer et 
tire un E.Il a alors le choix entr 

e :":PRINT " -- ecrire le mot ARE 

S sur une ligne videldonc la deuxie 

se ligne)":PRINT "et marquer 2 poin 

ts." 

4730 PRINT " -- ou ecrire,grace a 

ux lettres de la ligne {,soit TROP, 

et de DEUX des":PRINT "lettres de s 

a reserve:E et S,le nouveau mot POR 

TES,de 6 lettres.":PRINT "Celui-ci 
lui raportera alors 3 points,et il 

devra ecrire PORTES sur la sese" 

4740 PRINT "ligne que TROP,soit sur 
LA PREMIERE LIGNE" 

4750 PRINT:PRINT "Ce joueur retire 

alors une lettre,un P,et passe son 

tour:il a alors 3":PRINT "lettres e 

n reserve:le A,R et le P." 

4760 PRINT "Le joueur 2,apres avoir 
tire ses lettres,declare Jarnac.En 
effet,il a remarque":PRINT "que le 
joueuri pouvait encore ecrire, grac 

e a sa PREMIERE LIGNE et a DEUX":PR 
INT "LETTRES DE SA RESERVE:le A et 

le P,le aot de 8 lettres APPORTÉES." 

4770 PRINT "Il ecrit donc ce mot su 

r une de ses lignes vides(la 1),uti 
lise la ligne { de":PRINT "son adve 

rsaire,et 2 nouvelles lettres:il na 

rque alors 6 points.Le joueur {,lui 

":PRINT "perd 6 points,qui lui sont 
soustrait." 

4780 LOCATE 20,25:PRINT ">> 

E pour RETOUR AU JEU <<" 

4790 GOSUB 4800:G0T0 230 

4800 g$=INKEYS:1F g$="" THEN 4800 

4810 IF g$=" " THEN CLS:RETURN 

4820 GOTO 4800 


ESPAC 


QU 


>KL 


>RQ 
>)ZY 
)YA 
NA 


GESTION 
PHILATELIQUE 


DATI ET NN. 


La gestion d’une collection de timbres faite 

manuellement demande de nombreuses heures 
de travail et beaucoup de méthode. Ce 
programme va vous apporter une assistance 


dans vos classements. 


1 y a peu de chose à dire puisque les me- 


nus sont assez explicités. 


Vous gagnerez beaucoup de temps car il existe 
la possibilité d’imprimer chaque fichier et donc de 
bénéficier d’un double support (avec la disquette). 


LO MARRANT 
PETITE SEESTIEIS SEE EST EE SEESES SEE) 
PRETFETE I 

20 ‘+ 


30 ‘# - GESTION 
PHILATELIQUE - 
4 


40 ‘+ 


70 ‘à 
Saintot. ) 

4 
80 ‘+ 


4 

PIRE LISE TETE SES SET SS IS S SSI ETS SE 
PEFFELLELS ES STI ISEESSISÉ EE ES SSS 
CEFTELTE 

100 CLEAR 

110 MODE 2 

120 ma$-" MENU (annuel)" 


130 Ip$="- LE PAYS OÙ L'ANNEE (P 


»LA 


>LB 


LC 


>LD 


LE 


>LF 


>LJ 


JF 
>HB 
>VB 
>FR 





) -" 

140 cd$="TIMBRE NUMERO OÙ ‘enter8 P 
OUR RETOURNER AU MENU" 

150 ab$="tisbre numero" 

160 op$="- VOUS NE POSSEDEZ PAS CE 
TIMBRE DANS VOTRE COLLECTION !!! -" 


170 k1$="- NUMERO DU TIMBRE RECHERC 


HE, (ENTER) POUR RETOURNER AU MENU : 


180 ex$="- EXEMPLE :USA 1986 (MAXIM 
UH 8 LETTRES POUR DISK if LETTRES P 
OUR CASSETTES" 

190 apq$="- QUEL PAYS ET QUELLE ANN 
EE DESIREZ-VOUS TRAITER 
200 GOTO 1020 

210 CLS 


220 LOCATE 1,2:PRINT"- Ce prograsse : 


est concu pour gerer votre collect 
ion de tiabres y compris ies" 
230 LOCATE 1,3:PRINT" varietes." 


240 LOCATE 1,4:PRINT"- Son emploi e } 


st tres siaple.En effet vous aurez 
beaucoup de donnees a saisir" 

250 LOCATE 1,5:PRINT" et cela alle 
gera au aaxiaus votre travail." 

260 LOCATE {,6:PRINT"- Lors de la 5 

aisie il vous faudra indiquer :" 

270 LOCATE 1,7:PRINT"- LE NUMERO DU 
TIMBRE* 

280 LOCATE 1,8:PRINT"- LE NOMBRE DE 
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TIMBRES NEUFS QUE VOUS POSSEDEZ" 
290 LOCATE 1,9:PRINT"- LE NOMBRE DE 
TIMBRES OBLITERES QUE VOUS POSSEDE 
2" 
300 LOCATE 1,10:PRINT'"- 
CES TIMBRES" 
310 LOCATE 1,11:PRINT"- 
rez directement avec la 
TERS" 
320 LOCATE 1,12:PRINT'"- Si toutefoi 
s vous faites une erreur de frappe 
notez la il vous sera possi" 
330 LOCATE 1,13:PRINT" ble de lar 
ectifier en desandant le chapitre c 
orrection et aise a jour." 


LA COTE DE 


Vous valide 
touche ‘EN 


340 LOCATE 1,14:PRINT"- Vous pouvez 


traiter par annee un saxiaus de {0 
0 tinbres differents." 
350 LOCATE {,15:PRINT"- Pour faire 
la recapitulation de votre collecti 
on selectionnez l'option no 8" 
360 LOCATE 1,16:PRINT" .A la place 
d’un nusero de tisbre vous entrere 
z une annee où un type." 
370 LOCATE 1,17:PRINT"- EXEMPLE :19 
00 OÙ AERIENS" 
380 LOCATE 1,18:PRINT"- [1 faudra s 
auvegarder votre fichier avant de p 
asser au bilan de votre collec t 
ion car il sera detruit." 
390 LOCATE 1,20:PRINT"- Attention a 
l'option fin de traitesent car vot 





EM 


)TC 


LA 


KG 





re fichier en cours sera detruit e 79,0,179,179,179,179,179,179,179,-1 
t l'ordinateur se reinitialisera." 0 

400 sui$="- Frappez une touche pour >FD | 530 A$=INKEY$:1F A$="" THEN 450 ELS 
continuer -" E 540 

410 LOCATE 22,25:PRINT suis >WJ | 540 CALL &BCBG6 

420 RE +++++++ >KH | 550 CLS 

430 REH MUSIQUE >LU | 560 REM +++++ttt+tttt4tt 

440 REM +++++++ >KK | 570 REM DESSIN DU TIMBRE 

450 READ a >DJE | S80 REM +++ttttettttttt+t 

460 IF a=-1 THEN RESTORE:GOTO0 450  »AQ | 590 FOR A=-1 TO 360 

470 SOUND 1,a40.8,20,15,15,15 >VH | 600 PLOT 288,232 


480 SOUND 2,a#0.8,19.5,10,13,13 »1Q | 610 DEG 





490 DATA 119,0,119,0,119,0,119,0,13 >ZN | 620 PLOT 288+79C0S(A), 232+792SIN(A 
4,0,150,0, 150,0, 159,0, 179,0, 179,0, 1 ) 

50,0,119,0, 89,0, 89, 0,89, 0,89, 0, 100, 630 NEXT A 
0,113,0,113,0,119,0,134,0,134,0, 119 640 FOR A=1 TO 360 STEP 8 
,0,113,0,119,0,113,0,119,0,95,0 650 PLOT 288, 232 

500 DATA 113,0,119,0,119,0,134,0,15 >YT | 660 DEG 

0,0,150,0,159,0, 179,0, 159,0, 159,0, 1 670 PLOT 288+74#C0S(A), 232+742SIN(A 
59,0, 159,0, 150, 0,159, 0, 179,0, 179,0, ) 

179,0, 179,179, 179,179, 179,0, 0,0 680 PLOT 288+734C0S(A), 232+732SIN(A 
510 DATA 142,0,142,0,142,0,142,0,15 DMU | ) 

9,0,179,0, 179,0, 190,0, 190,0, 190, 0, 2 690 NEXT A 

01,0,190,0,106,0,106,0, 106,0, 106,0, 700 FOR A=2 TO 360 STEP 8 
95,0,106,0,119,0,119,0,119,0,119,0, 710 PLOT 288, 232 

106,0,95, 0,89, 0,89, 0,89, 0,89,0,95,0 720 DEG 

,100,0,106,0,106,0, 106, 0, 106,0 730 PLOT 288+744C0S(A), 232+744SIN(A 
520 DATA 119,0,134,0,142,0,142,0,14 DVX | ) 

2,0,142,0,134,0,159,0,179,0, 179,0, 1 740 NEXT A 


)EE 


>PA 
UE 
>PP 
>TF 
>PR 
>LN 
>CK 
>RD 
>DH 


>HK 
02 
)DE 
)RJ 
>DC 


DB 


NF 
>Qx 
>DB 
>RF 
DZ 


)NB 





750 FOR A=2 TO 360 STEP 8 

760 PLOT 288, 232 

770 DEG 

780 PLOT 288+734C05 (A), 232+734SIN(A 
) 

790 NEXT A 

800 LOCATE 28,5:PRINT". EMPIRE . FR 
ANC .":LOCATE 28,17:PRINT". 40. C. POS 
TES.40.C." 

810 PLOT 190,120:DRAV 190, 344:DRAU 
386,344:DRAY 386,120:DRAW 190, 120 
820 PLOT 194,124:DRAN 194,340: DRAU 
382,340:DRAW 382,124: DRAU 194, 124 
830 PLOT 194,146:DRAU 382, 146:PLOT 
195,318:DRAU 382,318 

840 PLOT 216,124:DRAW 216,198:PLOT 
359,126:DRAU 359, 196 

850 PLOT 216,266:DRAN 216,339:PLOT 
361,265:DRAU 361, 339 

860 PLOT 206,137:PLOT 207,138:PLOT 
208,139:PLOT 209,140:PLOT 205, 136:P 
LOT 204,135:PLOT 203,134:PLOT 202,1 
33:PLOT 204,137:PLOT 203, 138:PLOT 2 
02,139:PLOT 201,140:PLOT 206,135:PL 
OT 207,134:PLOT 208,133:PLOT 209,13 
2 

870 PLOT 206,329:PLOT 207, 330:PLOT 
208,331:PLOT 209,332:PLOT 204, 327:P 
LOT 203,326:PLOT 202,325:PLOT 201,3 
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LA 


CPC HS 
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QC 
>DG 
TA 
>DC 
>NG 
>LN 
>NH 
NX 
»YZ 
>YB 


)YV 


)BV 


>BA 





VIA AIR MAIL 





24:PLOT 204,329:PLOT 203,330:PLOT 2 
02,331:PLOT 201,332:PLOT 206,327:PL 

OT 207,326:PLOT 208,325:PLOT 209,32 

4 

880 PLOT 372,137:PLOT 373,138:PLOT TR 
374,139:PLOT 375,140:PLOT 370,135:P 

LOT 369,134:PLOT 368, 133:PLOT 370,1 
37:PLOT 369,138:PLOT 368, 139:PLOT 3 
67,140:PLOT 372,135:PLOT 373,134:PL 

OT 374,133:PLOT 375,132 

890 PLOT 373,329:PLOT 374,330:PLOT >CV 
375,331:PLOT 376,332:PLOT 371,327:P 
LOT 370,326:PLOT 369,325:PLOT 368,3 
24:PLOT 371,329:PLOT 370,330:PLOT 3 
69,331:PLOT 368,332:PLOT 373,327:PL 
OT 374,326:PLOT 375,325:PLOT 376,32 
â 

900 PLOT 199,318:DRAW 199,308:PLOT >CK 
199,298:DRAW 199,288:PLOT 199,278:D 

RAW 199,268:PLOT 199,258:DRAW 199,2 
48:PLOT 199,238:DRAW 199,228:PLOT 1 
99,218:DRAW 199,208:PLOT 199, 198:DR 

Au 199,188:PLOT 199,178:DRAW 199,16 
8:PLOT 199,158:DRAN 199, 148 

910 PLOT 377,318:DRAW 377,308:PLOT CI 
377,298:DRAN 377,288:PLOT 377,278:D 

RAN 377,268:PLOT 377,258:DRAN 377,2 
48:PLOT 377,238:DRAW 377,228:PLOT 3 
77,218:DRAN 377,208:PLOT 377,198:DR 

AN 377,188:PLOT 377,178:DRAW 377,16 
8:PLOT 377,158:DRAN 377, 148 

920 PLOT 209,308:DRAW 209,298:PLOT BG 
209,288:DRAW 209,278:PLOT 209,268:D 

RAUW 209,258:PLOT 209,248:DRAW 209,2 
38:PLOT 209,228:DRAW 209,218:PLOT 2 
09,20B:DRAW 209, 198:PLOT 209, 188:DR 

AW 209,178:PLOT 209, 168:DRAW 209, 15 

8 





le us 
a 





930 PLOT 367,308:DRAN 367,298:PLOT CL 
367,288:DRAN 367,278:PLOT 367,268:D 
RAU 367,258:PLOT 367,248:DRAW 367,2 
38:PLOT 367,228:DRAW 367,218:PLOT 3 
67,208:DRAW 367,198:PLOT 367, 188:DR 

Au 367,178:PLOT 367,168:DRAW 367,15 

8 


940 PLOT 199,308:DRAY 209,308:PLOT BE 
199,298:DRAN 209,298:PLOT 199,288:D 
RAVW 209,288:PLOT 199,278:DRAW 209,2 
78:PLOT 199,268:DRAN 209,268:PLOT 1 
99,258:DRAW 209,258:PLOT 199,248:DR 

AN 209,248:PLOT 199,238:DRAN 209,23 
B:PLOT 199,228:DRAW 209,228 

950 PLOT 199,218:DRAW 209,218:PLOT >KM 
199,208:DRA# 209,208:PLOT 199,198:D 

RAW 209,198:PLOT 199,188:DRAW 209,1 
88:PLOT 199,178:DRAW 209,178:PLOT 1 

99, 168:DRAW 209,168:PLOT 199, 158:DR 

AV 209,158 

860 PLOT 367,308:DRAW 377,308:PLOT >CC 
367,298:DRAN 377,298:PLOT 367,288:D 

RAW 377,288:PLOT 367,278:DRAW 377,2 





78:PLOT 367,268:DRAN 377,268:PLOT 3 
67,258:DRAU 377,258:PLOT 367,248:DR 

AN 377,248:PLOT 367,238:DRAW 377,23 
8:PLOT 367,228:DRAN 377,228 

970 PLOT 367,218:DRAW 377,218:PLOT KM 
367,208:DRAN 377,208:PLOT 367, 198:D 

RAW 377,198:PLOT 367, 188:DRAW 377,1 
88:PLOT 367,178:DRAW 377,178:PLOT 3 
67,168:DRAW 377,168:PLOT 367,158:DR 

AN 377,158 


980 PLOT 288,298 >FC 
990 LOCATE 20,25:PRINT sui$ DL 
1000 CALL &BB18 >TH 
1010 IF ve=13 THEN 1140 >PP 
1020 CLS >ZC 


1030 INPUT"- TRAVAILLEZ-VOUS SUR CA >HG 
SSETTES OU SUR DISQUETTES (C/D) :", 
tcdt 

1040 IF tcd#="C" OR tcd$="c" THEN à >TD 
TAPE ELSE üDISC 
1050 nt=100 
1060 DIM n(nt) 


>TH 
>PK 











1070 DIM t$(nt) 

1080 DIM a(nt) 

1090 DIM ont) 

1100 DIM c{nt) 

1110 DIM z(nt) 

1120 z=1 

1130 n=1 

1140 CLS 

1150 MODE 2 

1160 LOCATE 32,4:PRINT STRING$(15," 
+") 

1170 LOCATE 32,6:PRINT STRING#(15," 
+") 

1180 LOCATE 23,8:PRINT"- saisie des 
donnees RO NE 

1190 LOCATE 23,9:PRINT"- insertion 
de tiabres 2e 

1200 LOCATE 23,10:PRINT"- suppressi 
on de tiabres - 83 -" 

1210 LOCATE 23,11:PRINT"- correctio 
net aise a jour - 4 -" 

1220 LOCATE 23,12:PRINT"- classenen 
t du fichier SE" 

1230 LOCATE 23,13:PRINT"- liste 

- 6 -" 

1240 LOCATE 23,14:PRINT"- sauvegard 
e d'un fichier STE 

1250 LOCATE 23,15:PRINT"- chargemen 
t d'un fichier 855" 

1260 LOCATE 23,16:PRINT"- imprimer 
le fichier ges 

1270 IF ma$=" MENU (annuel)" THEN 1 
280 ELSE 1300 

1280 LOCATE 23,17:PRINT"- bilan de 
votre collection - 10 -" 

1290 GOTO 1310 

1300 LOCATE 23,17:PRINT"- retour au 
senu principal - 10 -* 

1310 LOCATE 23,18:PRINT"- catalogue 


(DISQUETTES) 


- {1 -* 





| 4° 
LSTIENNL. 


_— 


>"H 
JNJ 
QD 
>ND 
>0H 
>WH 
>VG 





1320 LOCATE 23,19:PRINT"- 

ent des cotes S12:€t 
1330 LOCATE 23,20:PRINT"- 
ion - 13 -" 
1340 LOCATE 23,21:PRINT"- 

aitesent - 14 -" 
1350 FOR w=1 TO 200:NEXT 
1360 LOCATE 32,5:PRINT sa 
1370 LOCATE 23,25:INPUT"- VOTRE CHO 
IX (1 a 14) ",vc:PRINT CHR$ 
(7) 

1380 ON ve GOTO 1390, 1810, 4900, 2750 
,5520, 1810, 4000, 4300, 4560, 5150, 5740 
5830, 210, 3950 

1390 CLS 

1400 tn=0:tob=0:tc=0 

1410 LOCATE 1,5:PRINT ex$ 

1420 LOCATE 1,2:PRINT apq$;:INPUT:u 
$:1F tcd$="D" OR tcd$="d" THEN 1430 
ELSE 1440 

1430 IF LEN(w#$)>8 THEN 1450 ELSE 14 
80 

1440 IF LEN(w#$)>11 THEN 1460 ELSE 1 
480 

1450 LOCATE {,7:PRINT"- 8 Lettres a 
axiaus pour le nom du fichier !":G0 
TO 1470 

1460 LOCATE 1,7:PRINT"- 11 Lettres 
saxiaus pour le non du fichier !" 
1470 FOR u=1 TO 2500:NEXT w:GO0TO 13 
90 

1480 IF LEFT$(uw$,1)="" THEN 1490 EL 
SE 1510 

1490 LOCATE 1,7:PRINT"- Un nos de f 
ichier est OBLIGATOIRE veuillez en 
donner un svp!" 

1500 FOR w=1 TO 2500:NEXT w:G0TO 13 
90 

1510 IF LEFT$(apq$,1)="#" THEN 1540 


rea justes 
presentat 


fin de tr 


1520 LOCATE 1,7:PRINT: INPUT"- COMBI 
EN DE TIMBRES SONT PARUS DANS L'ANN 


1540 PRINT CHR$(24) 

1550 LOCATE 1,11:PRINT:INPUT"# CONF 
IRHEZ-VOUS CES DONNEES  :°,d$ 

1560 PRINT CHR$(24) 

1570 IF d$="N" OR d$="n" THEN 1580 
ELSE 1810 

1580 CLS 








1590 REM ++++4+++4ttt+tttttttttt 
1600 RHCONFIRHATION 
1610 REM ++t++t4+tettttttttt+ttttt 
1620 IF I1p#=pl$ THEN 1740 

1630 LOCATE {,1:PRINT 1p$ 

1640 LOCATE 1,3:PRINT"- LE NOMBRE D 


E TIMBRES (T) -" 

1650 LOCATE 1,5:PRINT"- LE TOTAL CO 
TES (C) -* 

1660 LOCATE 1,8:INPUT"- QUE VOULEZ- 
VOUS CORRIGER :",co$ 

1670 IF co$="" THEN 1810 

1680 IF co$="p" OR co$="P" THEN 171 
0 

1690 IF co$="t" OR co$="T" THEN 175 
0 

1700 IF co$="c" OR co$="C" THEN 178 
0 

1710 PRINT:INPUT"- NOUVEAU PAYS OÙ 

ANNEE A TRAITER :",py$ 

1720 u$=py$ 

1730 GOTO 1540 

1740 CLS:PRINT:INPUT"- NOUVEAU PAYS 
OU TYPE A TRAITER :",py$ :w$=py$:G 
0TO 1810 

1750 PRINT: INPUT"- NOUVEAU NOMBRE D 
E TIMBRES :",nn 

1760 t=nn 

1770 GOTO 1540 

1780 PRINT:INPUT"- NOUVEAU TOTAL CO 
TES :°,nz 

1790 co=nz 

1800 GOTO 1540 

1810 CLS 

1820 REM +####44###4## 444444444444 t tt 
#++++++ 

1830 REHDESSIN 
LEAU 

1840 REM +#++#######4#44##44##44##44 
+++++++ 

1850 PLOT 5,20:DRA# 5,390:DRAW 630, 
390:DRAY 630,20:DRAW 5,20 

1860 PLOT 5,360:DRAW 630, 360:PLOT 5 
,330:DRAU 630,330:PLOT 156,20 


DU TAB 


1870 DRAW 156,390:PLOT 312,20:DRA4 


312,390:PLOT 468,20:DRAN 468,390 
1880 PLOT 4,18:DRAW 4,392:DRAW 631, 
392:DRAU 631,18:DRAU 4,18 

1890 PLOT 3,18:DRAW 3,392:DRAW 632, 
392:DRAU 632, 18:DRAU 3,18 

1900 PLOT 5,362:DRAW 630,362:PLOT 1 
57,362:DRAN 157,390:PLOT 313,362 
1910 DRAW 313,390:PLOT 469, 362:DRAW 
469,390:PLOT 155,362:DRAN 155, 390 
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UU 
JYU 


>WH 


>ED 


QU 
A4 


>BB 
DAT 
DHT 
»NC 


>HJ 
LC 





1920 PLOT 311,362:DRAW 311,390 :PLOT 
467,362:DRAW 467,390 

1930 PRINT CHR$(24) 

1940 LOCATE 4,2 

1950 PRINT UPPERS(w$) 

1960 PRINT CHR$(24) 

1970 LOCATE 22,2 

1980 PRINT "total neufs: " 

1990 LOCATE 42,2 

2000 PRINT "total oblit:_ " 

2010 LOCATE 61,2 

2020 PRINT "cotes: 

2030 LOCATE 4,4 

2040 PRINT ab$ 

2050 LOCATE 22,4 

2060 PRINT "tiabres neufs" 
2070 LOCATE 42,4 

2080 PRINT "tinbres oblit" 
2090 LOCATE 61,4 

2100 PRINT "cote Y & T'" 
2110 IF i=18 THEN 3620 
2120 IF ve=6 OR ve=8 THEN 3620 
2130 REM #+++#+###+#tttttttttttttttt 
2140 REM ENTREE DU NUMERO DU TIHBRE 

2150 REM +#+#+4#+44+44#t#ttttttttttttt 

2160 IF ve=2 THEN n=nti:i=2:G0T0 22 
20 

2170 n=0 

2180 z=1 

2190 i=1 

2200 n=nti 

2210 i=i+i 

2220 WINDOW #1,2,80,25,25 

2230 PRINT #i,cd$;:INPUT #1,t$(n) 
2240 CLS #1 

2250 IF RIGHT$#(t$(n),1)>=CHR$(65) T 
HEN 2300 

2260 IF LEN(t$(n))=1 THEN t$(n)="00 
0"+t$(n) 

2270 IF LEN(t$(n))=2 THEN t$(n)="00 
“+t$(n) 

2280 1F LEN(t$(n))=3 THEN t$(n)="0" 
+t$(n) 

2290 GOTO 2330 

2300 IF LEN(t$(n))=2 THEN t$(n)="00 
0"+t$(n) 

2310 IF LEN(t$(n))=3 THEN t$(n)="00 
"+t$(n) 

2320 IF LEN(t$(n))=4 THEN t$(n)="0" 
+t$(n) 

2330 WINDOW #3,2,18,6,23 

2340 IF t$(n)="" THEN n=n-1:G0T0 11 
40 


F" 


>ZM 


NT 
XF 
> 
>Nu 
>EC 
>EP 
EG 
)EP 
DB 
>EH 
NN] 
>TB 
)DE 
)AC 
DJ 
>AH 
)EB 
TJ 
>NB 
NY 
»YQ 
)DJ 
NT 
>DH 


JWA 
)IE 
JV] 
>KF 
)JG 
>RG 
DAT 
>LC 
)JX 











. es POOEEINERRENr # 2860 1F tn$="" THEN GOTO 1140 Di | 3290 GOTO 3330 NA 
2370 REM ++t++##4++tttttttttt >UP Tee >4K | 3300 IF LEN(y#)=2 THEN y$="000"+y$ )2ZZ 
RE A mi AE qe (2880 FOR n°i TO 2-1 MA | 3310 IF LEN(Y#)=3 THEN y#="00"+y# 2h 
2300 REM ++++#+++ttt++#tttttt >UR RROUIE VS ERLRIUTEN PER JUN | 3320 IF LEN(YS)=4 THEN y#="0"+ys >YK 
2400 ef#="TIMBRES NEUFS" PU ea NB | 4300 te (pi=rs YGE 
Ten pp [2910 IF p=0 THEN GOTO 3100 >TN | 3340 GOTO 2750 >NB 
A dou Su (2920 PRINT CHRS(24) DAT | 3350 LOCATE 1,20:PRINT: INPUT®- NOUV DK 
2430 WINDOV #4,21,37,6, 23 Ve. [0e MONTE SORSRME ae ?UZ | EAU TOTAL NEUFS ";ca 

240 LOCATE 44,22, i-L:PRINT Hâsatn) )8L | 2240 PRINT CHRS(24) NN | 3360 «*a(p)-ca TG 
hd re | 2950 LOCATE 3,3:PRINT;t#(p) ME | 3370 a(p)=ca Au 
2460 LOCATE 34,2:PRINT:tn yvc | 2260 PRINT CHRS(24) NX | 3380 IF a(p)ca THEN GOTO 3390 UN 
DATO AN ennemies On | 2970 LOCATE 18,1:PRINT" NEUFS * 2H | 3300 tnctn-r SL 
2480 REM ENTREE TIMBRES OBLITERES DH | 2760 PRINT CHR$(24) NZ | 3400 GOTO 2750 HI 
2490 REM ++++++t+rtpttttttttttitt  )JQ 2990 LOCATE 18,3:PRINT;a(p) 6H | 3410 CLS )ZH 
2500 gh$="TIHBRES OBLITERES" >yk | 2000 PRINT CHRS (24) 1 NG | 3420 LOCATE 1,20:PRINT: INPUT"- NOUV >JA 
2610 ULMDON 43.2 60.25.25 ÿrm | 3010 LOCATE 33,1:PRINT" OBLIT "  )2G | EAU TOTAL OBLITERES";c0 

2520 PRINT 42,gh8;: INPUT #2,o6m) 73 | 9020 PRINT CHRS(24) NI | 3430 y=otp)-co D 
2530 CLS 42 )LE 3030 LOCATE 33,3:PRINT:o(p) ME | 3440 o(p)=co >DD 
2540 WINDOW 45,41,58,6, 23 >TN | 2040 PRINT CHRS (24) NL | 3450 IF otp))co THEN GOTO 3460 >IF 
2550 LOCATE 45,42, 1-1:PRINT 45,00n) >BH | 9050 LOCATE 48,1:PRINT" COTE *  DYG | 3460 tob-tob-y DJ 
2560 tob=tob+o(n) >mH | 3060 PRINT CHRS (24) NN | 3470 GOTO 2750 NF 
2570 LOCATE 53, 2:PRINT:tob puy | 3070 LOCATE 48,3: PRINT ;c(p) DUC | 3480 CLS DAE 
2580 REM ++4+4444444444444 ven | 3060 GOTO 3130 JMF | 3490 LOCATE 1,20:PRINT: INPUT"- NOUV >VG 
2590 REM ENTREE DE LA COTE ouy | 3090 PRINT:PRINT HV | ELLE COTE";cc 

2600 REM ++++4++#444444#44 »qŒ | 3100 CLS:PRINT op$ NA | 3500 ab=c(p)-cc »ZE 
2610 119-"C0TE TOTALE" Sp | 3110 FOR u=1 TO 2000:NEXT u UK | 3510 ctpi=ce Si 
2620 LOCATE 2,25 »vJ | 3120 GOTO 2750 MH | 3520 IF c(p>cc THEN GOTO 3530 Di 
2630 PRINT ij$::INPUT:c(n) >ux | 3130 PRINT VG | 3530 te=tc-ab PJ 
2640 WINDOV 46,60, 75,6, 23 »7Q | 9140 LOCATE 1,7:PRINT gr$ JUF | 3540 GOTO 2750 >ND 
2650 LOCATE #6,62,i-1:PRINT 46, USIN >TE | 2150 LOCATE 1,9:PRINT"- ........... YU | 3550 tn=tn-a(p) © DFG 
GMA. HE"; cn) Hat TOTAL NEUFS : 3560 tob-tob-o(p) he 
2660 te=tctce(n) >DD 3570 te=tc-c(p) )DJ 
2670 LOCATE 67,2:PRINT USING"#eRtE. pur | 3160 LOCATE 1,11:PRINT"- )ZE | 3580 a(p)=0 QE 
H'itc oi OPEL EEESEEEEE OBLITERES : 3590 o(p)=0 >RK 
2680 IF i=18 THEN GOTO 2700 DU 3600 c(p)=0 >PK 
Sn C0 2210 Ju | 3170 LOCATE 1,13:PRINT"- ......... DEL | 3610 GOTO 2750 Su 
2700 CLS 43 SLF letters COTE : 3620 REM +++44444444444 >ND 
2710 CLS 44 14 | "+" 3630 REM LISTE COMPLETE >TU 
2720 CLS #5 >Lk | 3180 LOCATE 1,16:PRINT:INPUT®- FAIT >CU | 3640 REM ++++++++44+++4 DNF 
2740 GOTO 2190 ac | "524 3660 u=tn+tob VD 
2750 CLS Van | 3190 IF 24="* THEN GOTO 1140 JUH | 3670 ta-t-u dB 
2760 REM +++++444444444#644#44464 YA | 3200 IF 2$="1" THEN GOTO 3240 )VA | 3680 IF t=0 THEN ta=t PI 
2770 REM MISE A JOUR ET CORRECTIONS >DQ | 3210 IF z$="2" THEN GOTO 3350 VE | 3690 IF co=0 THEN cd=co )QT 
2780 REM +++++#4#+#4+##+#+4+##+#+#44#4+44 DYC | 3220 IF 2$="3" THEN GOTO 3420 )VE | 3700 LOCATE 34,2:PRINT tn > 
2790 gr$="- VOULEZ-VOUS CHANGER LE LD | 3230 IF z$="4" THEN GOTO 3490 >VP | 3710 LOCATE 53,2:PRINT tob NT 
NUMERO DU TIMBRE : j" 3240 LOCATE 1,20:PRINT st$;:INPUT;y )FU | 3720 LOCATE 67,2:PRINT USING"t##4t. HP 
2800 mn$=" NUMERO " ww |4 rite 

2810 st#="- NOUVEAU NUMERO DE TIHBR HN | 3250 1F RIGHTS (y#,1)>=CHR$(GS) THEN DFC | 3730 1F 1p#-pls THEN 3760 al. 
E" 3300 3740 LOCATE 2,25:PRINT"TIMBRES MANQ >UC 
2820 CLS >AB | 3260 IF LEN(S)=1 THEN y4="O00"+ys »2D | UANTS :";tu 

2840 PRINT k1$::INPUT:tné VE | 3270 IF LEN(y#)=2 THEN y#="00"+y$  )ZR | 3750 LOCATE 40,25:PRINT*POUR UNE CO >TH 
2850 CLS DA | 3280 IF LEN(y#)=3 THEN y#="O"+ys  DYP| TEDE :":cd 
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oo ET 











3760 WINDOW #7,1,80,6,25 JRT | 4160 PRINT #9.co )LC | 4610 WIDTH 77 »IC 
3770 IF 1=18 THEN 3790 >PQ | 4170 FOR n=1 TO z-1 >MNU | 4620 IF co=0 THEN cd=0 >PN 
3780 n-0 DUT | 4180 PRINT #9,t#(n) HZ | 4630 IF t=0 THEN te=0 >PD 
3790 1°! WF | 4190 PRINT 4#9,aln) DMV | 4640 PRINT #8,"#+4+4+++++++4+4t44tttt DRD 
3800 n=n+i >LC | 4200 PRINT #9,o(n) >)B HAE EE EEE EEE EHEEEEEEEEEEEE ET 
3810 i=i+i >KD |4210 PRINT #9,c{n) DMP | +###tttttt#ttttttttt4" 
3820 IF t$(n)="" THEN n=n-1:G0T0 39 >CV | 4220 NEXT n >VJ | 4650 PRINT #8 )JA 
10 4230 CLOSEOUT )YK | 4660 PRINT #8,"#";" ";UPPER$(u$)  ZN 
3830 LOCATE #7,3,i:PRINT #7,t$0n) DAN | 4240 REM +++++++++++++++++++++44tt# DBU | 4670 PRINT #8 >JC 
3840 LOCATE #7,22,i:PRINT #7,atn)  )AG |++++ 4680 PRINT #8,"- TOTAL TIMBRES NEUF >UC 
3850 LOCATE #7,42,i:PRINT #7,o(n)  )AA | 4250 REM SUPPRESSION DES FICHIERS " »HG | 5 sstn 
3860 LOCATE #7,62,i:PRINT #7,c(n)  )>AQ |BaAK" 4690 PRINT #8 NE 
3870 IF i=18 THEN 3890 DPT | 4260 REM ++++++##+#ttt+tttttttttttt >BU | 4700 PRINT 88,"- .......... OBLITERE >RP 
3880 GOTO 3800 )NH | +#++ S :"stob 
3890 a$=INKEY$:1F a$="" THEN 3890 E DHR | 4270 fb$="#.bak" )LE | 4710 PRINT #8 >HH 
LSE 3900 4280 üERA,àfb$ )AG | 4720 PRINT #8,"- ........., DES COTE >QK 
3900 CLS #7:WINDOW #7,1,80,6,25:G0T >GY | 4290 GOTO 1140 MW |5 ASE 1 
0 1810 4300 CLS >1G | 4730 PRINT #8 >HK 
3910 a$=INKEY$:1F a$="" THEN 3910 E DHV | 4310 REM ++++444444 À )LH | 4740 PRINT #8,"TIMBRES MANQUANTS : >JG 
LSE 1140 4320 REM CHARGEMENT )PT | f;ta 
3920 REM +++++++++++#tt+444t )TÂ | 4330 REM +++++#+#+4+ >LP | 4750 PRINT #8 )JB 
3930 REM SORTIE DU PROGRAMME XF | 4340 CLS:PRINT: INPUT"QUEL FICHIER D >PV | 4760 PRINT #8,"POUR UNE COTE DE : >HM 
3940 REM +++++tttttttttttttt TZ | ESIREZ-VOUS CHARGER :",u$ "cd 
3950 CLS: INPUT"- AVEZ-VOUS SAUVEGAR >JG | 4350 CLS:PRINT"- PATIENTEZ JE CHARG DFZ | 4770 PRINT #8 >JD 
DE VOTRE FICHIER :",av$ E LE FICHIER :":TAB(36):PRINT UPPER 4780 PRINT #8,"++itttt+thittttttt+t DR] 
3960 IF av$="N" OR av$="n" THEN 400 DAA | $(u$) HER EEE EEE EE EE EEE EEEEEEEEEEE 
0 4360 OPENIN ut DVD À HE EEHEEEEEEEEEEEN 
3970 CLS: INPUT"- ETES-VOUS SUR DE V ON | 4370 INPUT #9, u$ >GF | 4790 PRINT #8 DJF 
OULOIR QUITTER LE PROGRAMME (0 / N) 4380 INPUT 49, det >HB | 4800 PRINT 48, "NUMERO ne )YB 
:",qlp$ 4390 INPUT #9,z >BJ |ufs obliteres cote 
3980 1F qlp$="0" OR q1p$="o" THEN 3 DLF | 4400 INPUT #9,tn >LV |" 
990 ELSE 10 4410 INPUT #9, tob HD | 4810 PRINT #8 >HJ 
3990 CALL &0 NG | 4420 INPUT #9, tc >LK | 4820 FOR n=1 TO nt >LK 
4000 CLS >2D | 4430 INPUT #9,ta >LX | 4830 IF t$(n)="" THEN GOTO 4860 )B 
4010 REM +++##++444 )LJ | 4440 INPUT H9/cd HF | 4840 PRINT #8,t$0n),"  ";aln)," DL 
4020 REM SAUVEGARDE >PZ | 4450 INPUT #9, t AK “so(n)," ";c(n) 
4030 REM +++++++444 LL | 4460 INPUT 49, co >LJ | 4850 NET n >WH 
4040 CLS:PRINT:PRINT"- PATIENTEZ SA OUQ | 4470 FOR n=1 TO 2-1 >MX | 4860 FOR ligne=1 TO 9 >PV 
UVEGARDE DE VOTRE FICHIER ET SUPPRE 4880 INPUT 49, t$(n) >HF | 4870 PRINT 48 HE 
SSION DES FICHIERS .BAK." 4490 INPUT #9,a(n) >MB | 4880 NEXT >HB 
AOSD- PRINT sessions ee DHF | 4500 INPUT #9, o(n) >MH | 4890 GOTO 1140 NE 
OR D PET TE PEL Ee | 4510 INPUT #9, cn) >My | 4900 CLS AC 
shiusteset dd ® | 4520 NEXT n DUB | 4910 REM ++t+tttittrttttttttttt >VT 
4060 OPENOUT u$ >GB | 4530 CLOSEIN >MC | 4920 REM SUPPRESSION DE TIMBRES >BV 
4070 PRINT #9,u$ >FK | 4540 IF det=i THEN 5300 >QN | 4930 REM +ttttttttittttttttttttt JV 
4080 PRINT #9,det >LD | 4550 GOTO 1810 >NB | 4940 PRINT"- DONNEZ UN NUMERO À 4 C >WC 
4090 PRINT #9,z >BC | 4560 CLS >AE | HIFFRES EX:(0001-0027-2356)":PRINT 
4100 PRINT #9,tn DLN | 4570 REM ++++++#4+4 >LW | 4950 INPUT"- QUEL TIMBRE VOULEZ-VOU )EV 
4110 PRINT #9,tob )LF | 4580 REM IMPRESSION >PY | S SUPPRIMER ‘ ENTER POUR RETOURNER 
4120 PRINT #9,tc )LD | 4590 REM ++++4#44+4 >LY | AU MENU 8 : ",ts$ 
4130 PRINT #9,tn )LQ | 4600 PRINT"- VEUILLEZ PATIENTER J'I >VP | 4960 IF LEN(ts$)=0 THEN 1140 >VY 
4140 PRINT #9, cd GK | MPRIME VOTRE FICHIER :";TAB(48):PRI 4970 FOR n=1 TO z-1 >HC 
4150 PRINT #9,t )AD | NT UPPER$(u$) 4980 IF t$(n)=ts$ THEN 5050 JUF 
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4990 NEXT >MD 
5000 CLS ZE 
5010 PRINT STRING$(60,"-") >UJ 
5020 PRINT op$ MA 
5030 PRINT STRING$(60,"-") JUL 


5040 FOR w=1 TO 2000:NEXT:GO0TO 4900 >BD 


5050 tn=tn-a(n):tob=tob-o(n):te=tc- >JQ 
c(n) 
5060 PRINT:PRINT"- VOTRE TIMBRE No )QV 


: ";t$(n);" EST SUPPRIME .":FOR w=1 
TO 2000:NEXT 


5070 FOR j=n TO z-1 >Hu 
5080 t$(1)=t$(1+1) >LF 
5090 alj)=a(j+1) )BA 
5100 o(j)=o(j+i) >DA 
5110 c(j)=c(i+1) >AH 
5120 NEXT >KK 
5130 z=z-1 >NG 
5140 CLS:G0TO 4950 >MHR 
5150 CLS >AA 
5160 IF ma$=" MENU ( bilan )" THEN >QU 
5170 ELSE 5270 

5170 CLEAR RE 
5180 PRINT®------------------------ >PF 


5190 PRINT"- VOTRE FICHIER EN COURS 
EST DETRUIT -" 


DYU 


5200 PRINT"----------"--"""""""" >PY 
SasSssSsscissas n" 

5210 FOR w=1 TO 2000:NEXT )TY 
5220 IF det=1 THEN CLS:G070 5300  >ZG 
5230 GOTO 110 >EH 


5240 REM +########t##tt tt ttttttt 
#HHEHEEES 
5250 REM VARIABLES DU BILAN DE LA C 
OLLECTION 
5260 REM +++##44+#tt#tttt4t#ttttttt 
HE 


>GN 


>HH 


)GQ 


5270 CLEAR >RF 
5280 det=1 JNJ 
5290 GOTO 5180 >NH 


5300 xe$="- EXEMPLE :AERIENS (HAXIM >ZQ 
UXH 8 LETTRES POUR DISK 11 LETTRES P 

OUR CASSETTES)" 

5310 an$=" MENU ( bilan )" 

5320 pl$="- LE PAYS OU LE TYPE  (P 
) -* 

5330 dct="PAYS OU TYPE (ENTER) pour 
retourner au menu" 

5340 ba$="pays ou type " )1Q 

5350 1k$="- QUEL PAYS OU TYPE RECHE DMT 

RCHEZ-VOUS, (ENTER) POUR RETOURNER A 

U MENU" 


)VY 
>GH 


>KH 





5360 pot="- VOUS NE POSSEDEZ PAS CE MN 
PAYS OU CE TYPE DANS VOTRE COLLECT 
ION 111" 
5370 rq$="- 
OU LE TYPE" 
5380 ts$="- NOUVEAU PAYS OÙ TYPE "DT 
5300 qpat="# QUEL PAYS OU TYPE DESI DAF 
REZ-VOUS TRAITER 


5400 Ip$=pl$ 


VOULEZ CHANGER LE PAYS ODTT 


sussssssssssssssss 


>CK 
5410 cd$=dc$ »YJ 
5420 ab$=baf »B 
5430 na$=an$ dAE 
5440 k1$=1k$ >CD 
5450 op$=po$ >EA 
5460 qr$=rqf$ >EK 
5470 st$=ts$ >FJ 
5480 apqt=qpat NE 
5490 ex$=xe$ )EA 
5500 IF det=i THEN 1140 >QH 
5510 GOTO 1020 >MB 
5520 CLS )AB 
5530 REM ++++++++++ttttttttttt >UV 
5540 REM CLASSEMENT DU FICHIER »ZG 
5550 REM ++++++++++#+4tttttttt >UX 


5560 PRINT"- PATIENTEZ QUELQUES INS 
TANTS PENDANT LE CLASSEMENT DU FICH 
IER -" 


>LG 


5570 PRINFP=SSsSsSnSasmessarsssSnuss >FH 
sz2s2s3t 

5580 e=INT(n/2) >CG 
5590 WHILE e)=1 >BD 
5600 na=1 >DG 
5610 WHILE na(=n-e >HA 
5620 nr=na >RK 
5630 IF t$(nr)>t$(nrte) THEN 5640 E >HB 
LSE 5680 

5640 y$=t$(nr):x=a(nr):y=o(nr):g=c( >HG 
nr) 

5650 t$(nr)=t$(nrte):a(nr)=a(nrte): >LN 
o(nr)=o(nrte):c(nr)=c(nrte) 

5660 t$(nrte)=y$:a(nrte)=x:o(nrte)= >RW 
y:c(nrte)=g 

5670 nr=nr-e:1F nr>=1 THEN 5630 )YE 
5680 na=nat1 >DD 
5690 VEND >KE 
5700 e=INT(e/2) >BB 
5710 VEND >JH 
5720 n=nr >JF 
5730 G0TO 1140 )HJ 
5740 CLS )AF 
5750 REM #+##+H+ #44 ##t tt +++ vu 
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IS LILI SIT 





5760 REM CATALOGUE DES FICHIERS 

5770 REN +++++++##+tttttt+tt++t 

5780 fi$="#," 

5790 üDIR,àfi$ 

5800 PRINT:PRINT:PRINT"- FRAPPEZ UN 

E TOUCHE POUR RETOUR AU MENU -" 

5810 A$=INKEYS:IF A$="" THEN 5810 

5820 CLS:GO0TO 1140 

5830 CLS 

5840 REM +++++#4++ht#+ttttttttt+t 

5850 REM REAJUSTEMENT DES COTES 

5860 REM +++++#+#+#+4++4#4+44+4+4 

5870 PRINT CHR$(24) 

5880 LOCATE 5,1:PRINT"- REAJUSTEMEN 

T DES COTES DU FICHIER : ";:PRINT U 

PPER$(u$) 

5890 PRINT CHR$(24) 

5900 LOCATE 2,5:PRINT " 
NEUF OBLITERE 

5910 LOCATE 2,6:PRINT " 

5920 n=0 

5930 n=nt1 

5940 IF t$(n)="" THEN n=n-1:G0T0 60 

10 


TIMBRE No 
COTE" 


5950 LOCATE 2,8:PRINT ;"  ";t$(n); 
L “sa(n);" "so(n):" 
"sc(n) 


5960 WINDOW #1,1,30,11,12 

5970 LOCATE 3,11:INPUT"- NOUVELLE C 
OTE : ",nc(n) 

5980 CLS #1 

5990 tc=tc-c(n):te=tctnc(n) 

6000 GOTO 5930 

6010 CLS:PRINT:INPUT"- VOULEZ-VOUS 
SAUVEGARDER VOTRE FICHIER (O/N) :*, 
vvs$ 

6020 IF vvs$="0" OR vvs$="o" THEN 4 
000 ELSE 1140 


>AC 
NY 
AE 
>CH 
)1Z 


>ZP 
JM] 
AF 
> 
AB 
NY 
>NA 
>HH 


NC 
TD 
JP 
WG 
>LJ 
>CU 
GX 
RF 
UE 
>HG 
DUY 


)NA 
HT 


)NJ 





VWWILLY EZXTE 


MODE D'EMPLOI : 
— Déplacement : joystick ou touches flé- 
chées. 


Willy doit colorier les cases de 
son labyrinthe mais le temps et 









HAE méchante SERRE HÉROS — Sélection des options en pressant les 
contre lui. Valable peur chiffres correspondants. 
CPC 464 | — Les règles sont contenues dans le pro- 
CPC 664 | - 


Xe CPC 6128 gramme. ; = 
ASTUCES 

— Allez très doucement près des éclairs et des trous. 

— Attendez avant de prendre le sablier. 

— Prenez le cœur le plus tôt possible (avant de perdre). 


— Attention l’araignée accélère d’un niveau à l’autre. 

— Faire très attention à l’araignée. 

— Au besoin, si toutes ces petites astuces ne vous servent pas, modifier la ligne 500 en y 
mettant un maximum de vies. 





10 REM HHHKHHANRENNUREREX NL | 170 SYMBOL 210,112,120,124,126,127, >LH 
20 REM *# INITIALISATION # UD | 127,127,63 

30 REM #HR#####tttt# tt NN | 180 SYMBOL 211,31,63,127,255,255,25 >KP 
40 SYHBOL AFTER 200 NB | 5,255,254 

50 SYMHBOL 200,.0,63,127,127,123,117, >HA | 190 c$=CHR#(208)+CHR$(209)+CHR$(8)+ >UH 
126,120 CHR$(8)+CHR$(10)+CHR$ (210) +CHR$(211 

60 SYMBOL 201,0,254,255,255,223,175 DHR | ) 

127,31 | 200 SYMBOL 212,0,63,64,79,80,83,84, >DD 
70 SYHBOL 202,118,125,123,123,127,1 >KA | 84 

27,127,63 210 SYMBOL 213,0,254,1,249,5,229,21 DET 
80 SYMBOL 203,111,191,223,223,255,2 DLB | ,149 

55,255, 254 220 SYHBOL 214,B5,84,84,83,80,79,64 )EG 
90 a$=CHR$(200)+CHR$(201)+CHR$(8)+C DRD | ,63 

HR$(8)+CHR$ (10) +CHR$ (202) +CHR$ (203) 230 SYHBOL 215,85, 140,21,229,5,249, F1 
100 SYMBOL 204,0,63,127,127,127,127 >JC | 1,254 


.127,127 240 d$=CHR$(212)+CHR$(213)+CHR$(B)+ DUC 
110 SYMBOL 205,0,254,255,255,266,26 »KL | CHR$(B)+CHR#(10)+CHR$(214)+CHR$ (215 
5,255,255 |) 

120 SYMBOL 206,127,127,127,127,127, ?LE | 260 SYMBOL 216,0,63,127,127,127,126 JA 
127,127,63 .124, {20 

130 SYHBOL 207,255,255,255,255,255, >MP | 260 SYMBOL 217,0,254,255,255,63,127 >HA 
256,256,254 255,31 

140 b$=CHR$(204)+CHR$(205)+CHR$(8)+ DUD | 270 SYMBOL 218,127,126,124,121,127, >LA 
CHR$(8)+CHR$ (10) +CHR$ (206) +CHR$ (207 127,127,63 

} 280 SYMBOL 219,63,127,255,255,255,2 »LA 
150 SYMBOL 208,0,63,127,127,127,121 2JT | 55,255,254 

.112,112 290 e$=CHR$(216)+CHR$(217)+CHR$(8)+ DUB 
160 SYMBOL 209,0,254,255,255,255,63 >GE | CHR$(8)+CHR$(10)+CHR$ (218) +CHR$(219 
31,31 } 
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300 f$=CHR$(32)+CHR$ (32) +CHR$ (8) +CH 
R$(8)+CHR$(10)+CHR#(32)+CHR$ (32) 


310 SYMBOL 220,0,63, 80,80, 72, 72,71, } 


68 
320 SYMBOL 221,0,254,5,5,9,9,241,17 


330 SYMBOL 222,68,68, 71, 72, 72,80, 80 
.63 

340 SYMBOL 223,17,17,241,9,9,5,5,25 
à 

350 g$=CHR$(220)+CHR$(221)+CHR$(8)+ 
CHR$(8)+CHR$ (10) +CHR$ (222) +CHR$ (223 
} 

360 SYHBOL 224,0,63,64,79,68,68,66, 
66 

370 SYMBOL 225,0,254,1,249,17,17,33 
33 

380 SYMBOL 226,65,66,66,68,68, 79,64 
.63 

390 SYMBOL 227,65,33,33,17,17,249,1 
254 

400 h$=CHR$ (224) +CHR$ (225) +CHR$ (8) + 
CHR$(B)+CHR$(10)+CHR$(226)+CHR$ (227 
} 


410 SYMBOL 228,0,63,127,127,124,112 


114,112 

420 SYMBOL 229,0,254,255,255,63,15, 
19,15 

430 SYHBOL 230,112,120,122,113,96,1 
26,127,63 

440 SYMBOL 231,15,31, 79,143, 7,127,2 
55,254 


450 i$=CHR$(228)+CHR$(229)+CHR$(B)+ 


CHR$(8)+CHR$ (10) +CHR$ (230) +CHR$ (231 
) 

460 GOTO 3090 

470 REM 

480 REH 

490 REM 

500 MODE 1:RESTORE 3950:tenps2=0:te 
nps1=0:INK 2,10:niveau={:tableau=1: 
vie=5:score=0:app=0 

510 WINDOW40, 1, 40, 1,20 

520 WINDOW#1,1,40,21,25 

530 PLOT 0,0,13:DRAW 0,78:DRAU 639, 
78:DRAW 639,0:DRAW 0,0 

540 LOCATE#1,2,2:PRINTHI, "VIE :";vi 
e 

550 LOCATE#1,20,2:PRINTH1I, "SCORE :" 
;score 

560 LOCATE#1,2,4:PRINT#1,"TEMPS :* 

570 REM HH#H HR 

580 REM x DESSIN TABLEAUX # 

590 REM #H#HHHNRRRUNNNNUES 


NC 


600 x=1:y=1:INK 2,15 

610 DIM d(40,25) 

620 READ dalle 

630 READ teaps 

640 READ q2 

650 READ w2 

660 READ ari 

670 FOR n=1 TO 16 

680 READ a 

690 IF a=0 THEN LOCATE x,y:PRINT f$ 
:d(x,y)=0 

700 IF a=1 THEN PEN 13:LOCATE x,y:P 
RINT b$:d(x,y)=1 

710 IF a=2 THEN PEN 13:LOCATE x,y:P 
RINT g$:d(x,y)=2 

720 IF a=3 THEN PEN 13:LOCATE x,y:P 
RINT d#:d(x,y)=3 

130 IF a=4 THEN PEN 2:LOCATE x,y:PR 
INT e$:d(x,y)=4 

740 IF a=9 THEN PEN 13:LOCATE x,y:P 
RINT g$:d(x,y)=9 

750 x=x+2:NEXT n 

760 x=1:y=y+2 

170 IF y=21 THEN 790 

780 GOTO 670 

790 REM ##vsuus 

800 REM * TEMPS : 

810 REM uv 

820 FOR n=1 TO temps STEP 2 

830 PLOT 140+n,30,3:DRAW 140+4n,17 
840 NEXT n 

850 GOSUB 2880:G0T0 860 

860 REM HHH####ruttt 

870 REM # DEPLACEMENT x# 

880 REM WHY ###ttt 

890 q=9:w=1:q1=q:ut=u:q3=q2:u3=w2 


900 PEN 3:LOCATE q,u:PRINT i$:d(q,u 


)=8 

910 IF INKEY(72)=0 OR INKEY(0)=0 TH 
EN 960 "HAUT 

920 IF INKEY(73)=0 OR INKEY(2)=0 TH 
EN 1010 'BAS 


930 IF INKEY(74)=0 OR INKEY(8)=0 TH 


EN 1060 "GAUCHE 

940 IF INKEY(75)=0 OR INKEY(1)=0 TH 
EN 1110 "DROITE 

850 GOSUB 1380:GOSUB 1790:G0SUB 201 
0:G0T0 900 

960 REM *# HAUT # 

970 w=u-2 

980 IF w=1 OR ui THEN v=1 

990 IF d(q,w)=2 OR d(q,w)=9 THEN v= 
u+2 


>VH 


>vy 


A 


>UB 


>VP 


>HY 








1000 GOTO 1180 

1010 REH # BAS # 

1020 w=w+2 

1030 IF w=19 OR w>19 THEN u=19 

1040 IF d(q,w)=2 OR d(q,w)=9 THEN w 

=w-2 

1050 GOTO 1180 

1060 REM # GAUCHE # 

1070 q=q-2 

1080 IF q=i OR gti THEN q=1 

1090 IF d(q,w)=2 OR d(q,w)=9 THEN q 

=g+2 

1100 GOTO 1180 

1110 REM # DROITE # 

1120 q=q+2 

1130 IF q=31 OR q>31 THEN g=31 

1140 IF d(q,w)=2 OR d(q,w)=9 THEN q 

=q-2 

1150 GOTO 1180 

1160 PEN 3:LOCATE qi,wi:PRINT b$:d({ 

qi,wi)=10:qt=q:ut=u 

1170 GOTO 900 

1180 REM ##xuux 

1190 REM * TEST # 

1200 REM ###### 

1210 GOSUB 1790:GO0SUB 2010 

1220 IF q=q2 AND w=w2 THEN 

rt 

1230 IF d(q,w)=6 THEN 1590 

un coeur 

1240 IF d(q,w)=4 THEN 1500 

1250 IF d(q,w)=0 THEN 1500 

1260 IF d(q,w)=7 THEN 1680 

un sablier 

1270 IF d(q,w)=1 THEN 1290 

coloriees 

1280 GOSUB 1380:G0T0 1160 

1290 REM HAN HN 

1300 REM # DALLES COLORIEES # 

1310 REM HN NN 

1320 d(q,w)=8 

1330 dalle=dalle-1 

1340 score=scoreti 

1350 LOCATE#1,27,2:PRINT#, score 

1360 IF dalle=0 THEN 2450 

1370 GOTO 1280 

1380 REM HA#HHM NH NMNMUUNNEE 

1390 REM *# DIMINUTION DU TEMPS # 

1400 REM #HH# #3 N M EENRUNNNEE 

1410 tenpsi=tenpsiti 

1420 IF tempsi=2 OR temps1)2 THEN t 

eaps2=tesps2+{:tempsi=0 

1430 PLOT (140+teaps)-tenps2,30,0:D 
22 


1460 ’ao 
"prise d 
sort 
'aort 


"prise d 


’dalles 


)LJ 
>NG 
>HD 
Ju 
>EG 


>MD 
?LV 
>LJ 
>TG 
EX 


>LK 
>HK 
LC 
NH 
)EV 


)ME 
>AP 


FD 
LE 
>CH 
>KH 
DUT 
)X 


>TD 


TT 
?TP 
>TH 


)TZ 


)TE 
>RB 
JU 
>RU 
>HC 
NF 
NL 
)BJ 
>RX 
>HK 
JUU 
>ZL 
JUL 
QU 
>FP 


>HA 








RAW (140+temps)-temps2, 17 

1440 IF t aps=tenaps2 OR teaps(teaps 
2 THEN 14:9 ‘mort 

1450 RETURN 

1460 REM yvx##1 

1470 REM # MORT # 

1480 REM #####4 

1490 PEN 13:LOCATE q3,w3:PRINT b$:P 
EN 2:LOCATE q2,w2:PRINT a$:PEN 13:G 
0TO 1520 

1500 PEN 3:LOCATE qgi,wi:PRINT b$ 
1510 PEN 13:LOCATE q,w:PRINT i$ 
1520 FOR n-500 TO 1 STEP -20 
1530 SOUND 5,n,0.5,15 

1540 NEXT 

1550 vie=vie-{ 

1560 IF vie=0 THEN 3520 

1570 CLS 

1580 appi=U:GUSUB 2500 

1590 REM HN 
1600 REM * PRISE D'UN COEUR # 
1610 REM HAN t 
1620 vie=vie+i 

1630 ENV 1,15,-1,10 

1640 ENT -1,10,4,1,1,-20,1 

1650 SOUND 2,400,0,15,1,2 

1660 LOCATE#1,7,2:PRINT#{,vie 
1670 GOTO 1290 

1680 REM #HHH#N HR NN NNRNNNN 
1690 REM *# PRISE D'UN SABLIER # 
1700 REM HHHHAN RHUME 
1710 PEN 3:LOCATE qi,wi:PRINT b$ 
1720 LOCATE q,u:PRINT i$ 


1730 teaps2=(teaps-temps2)+100:tesp 


s=temps2 

1740 SOUND 5,400,0,9,0,1 

1750 FOR n=1 TO temps2 STEP 2 

1760 PLOT 140+n,30,3:DRAW 140+n,17 
1770 NEXT 

1780 teaps2=0:tempsi=0:GO0T0 1290 
1790 REM Haut 

1800 REM # APPARITION # 

1810 REM WHHY####4u##4 

1820 ch=CINT(RND(2)#10) 


1830 IF ch=tableau OR ch>4 THEN 185 


0 ELSE appi=1:G0T0 1840 

1840 RETURN 

1850 IF appi=0 THEN 1870 

1860 IF appi=1 THEN RETURN 

1870 app=CINT(RND(2)#10) 

1880 IF app(2 THEN appi={:GO0T0 1910 
apparition coeur 


1890 IF app>5 THEN appi=1:GOTO 1960 


>QC 


>FD 
>LF 
>DA 
>LH 
>DA 


)BT 
>HB 
>RB 
HU 
>RK 
>BC 


>FG 
QD 
VX 
>TB 
>CB 


>CN 








‘apparition sablier 2350 IF d(q2,w2)=2 THEN w2=u2-2 >xY | 2710 IF tableau=2 THEN GOSUB 2810:R >PB 
1900 RETURN >FD | 2360 GOTO 2370 Na | ESTORE 5630 

1910 REM WHRMAEUMMEENNEENNEEX ut | 2370 IF d(q3,u3)=1 THEN PEN 13 >uJ | 2720 IF tableau=3 THEN GOSUB 2810:R >PG 
1920 REM x APPARITION DU COEUR # >2N | 2380 IF d(q3,u3)=9 THEN d(q3,u3)=1: »ZU | ESTORE 5750 








1930 REM MARANMENMENANNENNNEEE uv | dalle=dallett:PEN 13 2730 IF tableau=4 THEN GOSUB 2810:R >PM 
1940 PEN 13:LOCATE 31,19:PRINT c$:d >LQ | 2390 IF d(q3,w3)=10 THEN PEN 3 »4G | ESTORE 5870 
(31,19)-6 2400 1F d(q3,w3):6 OR d(q3,w3):7 TH >QT | 2740 ERASE d:GOTO 510 >PP 
1950 appi=1 :RETURN >ND | EN d(q3,w3)=1:dalle=dalle+1:PEN 13 2750 REM * NIVEAU 5 # >HD 
1960 REM vusuweseuæsnuumemmxxtannx DUT | 2410 LOCATE q3,u3:PRINT b$ vx | 2760 IF tableau=1 THEN GOSUB 2810:R >PZ 
1970 REH » APPARITION DU SABLIER * >BQ | 2420 PEN 2:LOCATE q2,u2:PRINT a8:q3 NB | ESTURE 6020 
1080 REM vrssummeuremunmummunnx UV | =92:#3=u2 27170 IF tableau=2 THEN GOSUB 2810:R >PE 
1990 PEN 13:LOCATE 31,19:PRINT h#:d >LC | 2430 IF q2=q AND w2=u THEN 1460  »XA | ESTORE 6140 
(31,19)=7 2440 RETURN sFp | 2780 IF tableau=3 THEN GOSUB 2810:R >PK 
2000 appi=1:RETURN SNP | 2450 REM #trtntrx >FF | ESTORE 6260 
2010 REM WÉHMMMMAMMEX ML | 2460 REM * TABLEAU # yMA | 2790 IF tableau=4 THEN GOSUB 2810:R >PQ 
2020 REM x L'ARAIGNEE # >pr | 2470 REM wrssrervy >FH | ESTORE 6360 
2030 REM Weñtuutuunzs HN | 2480 tableau=tableau+t:GOSUB 2960  >CM | 2800 ERASE d:GOTO 510 )PL 
2040 tour=tour+t >My | 2490 score=scoret(temps-temps2) >cB | 2810 REX AC 
2050 IF tour=ari THEN tour=0:G0T0 2 >FG | 2500 CLS:0N niveau GOTO 2510,2570,2 >WN 2820 REM AD 
070 630, 2690, 2750, 3880 2830 REM DAE 
2060 RETURN >FB | 2510 REM » NIVEAU 1 « HT | 2840 FOR n=1 TO teaps STEP 2 >VR 
2070 ar=CINT(RND(2)#10) sRR | 2520 IF tableau={ THEN GOSUB 2810:R >PC | 2850 PLOT (140+temps)-n,30,0:DRAW ( UE 
2080 IF ar:1 THEN q2:q2+2:G0T0 2130 >BZ | ESTORE 3950 140+temps)-n, 17 
droite | 2530 IF tableau=2 THEN GOSUB 2810:R >PR | 2860 NEXT n WG 
2090 IF ar=2 THEN q2:q2-2:G0T0 2190 >BK | ESTORE 4100 2870 tesps1=0:temps2-0:PEN 13 »YN 
' gauche | 2540 IF tableau=3 THEN GOSUB 2810:R >Px | 2880 LOCATE 36,4:PRINT"N" >UQ 
2100 IF ar=3 THEN w2=v2-2:G07T0 2250 >BH | ESTORE 4220 2890 LOCATE 36,6:PRINT"I" JUN 
haut 2550 IF tableau=4 THEN GOSUB 2810:R >PC | 2900 LOCATE 36,8:PRINT"V" >Uy 
2110 IF ar=4 THEN w2=w2+2:G070 2310 >BJ | ESTORE 4340 2910 LOCATE 36, 10:PRINT"E" VT 
bas 2560 ERASE d:GO0TO 510 >pp | 2920 LOCATE 36,12:PRINT"A" DR 
2120 RETURN >EJ | 2570 REM #* NIVEAU 2 # >MA | 2930 LOCATE 36,14:PRINT"U" >VR 
2130 IF q2=31 OR q2>31 THEN Q2=31  >YC | 2580 IF tableau=1 THEN GOSUB 2810:R >PJ | 2940 LOCATE 35,17:PRINT niveau >ZX 
2140 IF d(q2,w2)=4 THEN q2=q2-2 »XJ | ESTORE 4490 2950 RETURN >FK 
2150 1F d(q2,u2)=0 THEN q2=q2-2 XF | 2590 IF tableau=2 THEN GOSUB 2810: >PE | 2960 RE #tattrititanra >QP 
2160 1F d(q2,w2)=8 THEN 1460 uk | ESTORE 4610 | 2970 REM # FIN DE TABLEAU # TR 
2170 IF d(q2,u2)=2 THEN q2=q2-2 >xK | 2600 IF tableau=3 THEN GOSUB 2810:R >PA | 2980 REM #atuttittxttrà >QR 
2180 GOTO 2370 SNA | ESTORE 4730 2990 PEN 3:LOCATE q,u:PRINT if >YA 
2190 IF q2=1 OR q2<i THEN q2=i uk | 2610 IF tableau=4 THEN GOSUB 2810:R >PF | 3000 PEN 3:LOCATE qi,ui:PRINT b$ AE 
2200 IF d(q2,w2)=4 THEN q2=q2+2 »xD | ESTORE 4850 3010 INK 3,3,26:BORDER 0,13 >UH 
2210 IF d(q2,u2):0 THEN q2=q2+2 >XA | 2620 ERASE d:GOTÛ 510 bL | 3020 FOR i=0 TO 60 STEP 0.5 >TH 
2220 IF d(q2,w2)=8 THEN 1460 JUG | 2630 REM * NIVEAU 3 5My | 3030 SOUND 1, INT(SIN(i)#150)+200,2, >DB 
2230 IF d(q2,w2)=2 THEN q2=q2+2  DXE | 2640 IF tableau={ THEN GOSUB 2810:R >PT | 12 
2240 GOTO 2370 >MH | ESTORE 5000 3040 SOUND 4, INT(COS(i)#100)+150,1, >DA 
2250 IF w2=1 OR w2€t THEN u2=1 >WB | 2650 IF tableau=2 THEN GOSUB 2810:R >PY | 14 
2260 IF d(q2,w2)=4 THEN w2=u2+2 >XY | ESTORE 5120 3050 NEXT i >vD 
2270 1F d(q2,w2)=0 THEN w2=u2+2 XV | 2660 IF tableau=3 THEN GOSUB 2810:R >PD | 3060 INK 3,6:BORDER 1 >PD 
2280 IF d(q2,w2)=8 THEN 1460 JUN | ESTORE 5240 3070 IF tableau>4 THEN tableau=1:ni >HT 
2290 1F d(q2,w2)=2 THEN w2=u2+2 »xz | 2670 IF tableau=4 THEN GOSUB 2810:R >PJ | veau=niveauti:vie=vieti 
2300 GOTO 2370 ME | ESTORE 5360 3080 app1-0:tour=0:RETURN UV 
2310 IF w2=19 OR w219 THEN w2-19  DYR | 2680 ERASE d:GOTO 510 »PT | 3090 REM #H########uut ÿNE 
2320 IF d(q2,wu2)=4 THEN w2=u2-2  UX | 2690 REM * NIVEAU 4 # MF | 3100 REM * PRESENTATION # DUJ 
2330 IF d(a2,u2)=0 THEN w2=w2-2 AU | 2700 IF tableau=1 THEN GOSUB 2810:R >Py | 3110 REM vastrianennnt >NX 
2340 IF d(q2.w2)=8 THEN 1460 >UK | ESTORE 5510 3120 HODE 1:BORDER 1 >NA 
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3130 LOCATE 16,2:PRINT'W 1 L L Y" 
3140 LOCATE 15,3:PRINT"-=-=-=-=-=-" 

3150 LOCATE 14,7:PRINT"{ 
ER" 

3160 LOCATE 14,9:PRINT"2 
LE" 

3170 LOCATE 14,11:PRINT"3 
ORE" 

3180 LOCATE 14,13:PRINT"4 
N" 

3190 LOCATE 12,17:PRINT'FAITE VOTRE 
CHOIX ?" 

3200 z$=INKEY$:1F z$="" THEN 3200 
3210 IF z$="{" THEN 470 

3220 IF z$="2" THEN 3260 

3230 IF z$="3" THEN 3780 

3240 IF z$="4" THEN HODE {:END 
3250 GOTO 3200 

3260 REM ###4##4 

3270 REM *# REGLE # 

3280 REM ######3 

3290 CLS 

3300 LOCATE 16,2:PRINT"U 1 L L Y° 
3310 LOCATE 15,3:PRINT"-=-=-=-2-2-" 

3320 LOCATE 1,7:PRINT "Vous etes WI 
I1Y petit fantose perdu au royaume 
de l'ARAIGNEE." 

3330 LOCATE 1,10:PRINT "Votre but e 

st siaple coloriees en sarrontoutes 
les cases blanches." 

3340 LOCATE 1,13:PRINT "Mais attent 
ion aux eclairs, aux trous noirs 

et a l'araignee." 

3350 LOCATE 1,16:PRINT "Heureusesen 

t, il y a quelques bonus, telque le 
sablier et le coeur." 

3360 LOCATE 1,19:PRINT "J'allais ou 
blier, vous etes limite dans le ten 

ps, et il y a quelques surprise." 

3370 LOCATE 10,22:PRINT "PRESSER LA 
TOUCHE 6 C è POUR CONTINUER " 

3380 z$=INKEYS:1F z$="" THEN 3380 

3390 IF z$="c" OR z$="C" THEN 3410 

3400 GOTO 3380 

3410 CLS 

3420 LOCATE 1,2:PRINT'WILLY........ 

“états ":LOCATE 25,1:PRINT i$ 

3430 LOCATE 1,5:PRINT"L' ARAIGNEE... 

ads ":LOCATE 25,4:PRINT a$ 

3440 LOCATE 1,8:PRINT"L'ECLAIR..... 

shtonates *:LOCATE 25,7:PRINT e$ 

3450 LOCATE 1,11:PRINT"LE COEUR... 

sn ":LOCATE 25,10:PRINT c$ 


= > REG 


= » $C 


= > FI 





>BK 


AD 
)BJ 


TE 
>ZU 
)YR 
M] 
>ZH 
>QC 
>RD 
> 


>TF 





3460 LOCATE {,14:PRINT"LE SABLIER.. 
ses ssoishsse ":LOCATE 25,13:PRINT h$ 


3470 LOCATE {,17:PRINT'"Dernier deta 


il, il y a 5 niveau cosport 
ant chacun 4 tableaux, al 
ors BONNE CHANCE !!." 

3480 LOCATE 1,22:PRINT "PRESSER LA 
TOUCHE 6 C & POUR CONTINUER * 


:3490 z$=INKEY$:1F z$="" THEN 3490 


3500 IF z$="c" OR z$="C" THEN 3090 
3510 GOTO 3490 
3520 REM HHNHNNHHNNXNNNNEE 
3530 REM # FIN DE PARTIE # 
3540 REM #HHHHHH NN 
3550 CLS:MODE 2 
3560 LOCATE 30,8:PRINT "VOUS ETES A 
RRIVE" 
3570 LOCATE 25,10:PRINT "AU TABLEAU 
N.";tableau;"DU NIVEAU'";niveau 
3580 LOCATE 25,12:PRINT "VOTRE SCOR 
E EST DE";score; "POINTS" 
3590 LOCATE 20,16:PRINT "PRESSER LA 
TOUCHE é C à POUR CONTINUER * 
3600 z$=INKEY$:1F z$="" THEN 3600 
3610 IF z$="c" OR z$-"C" THEN CLS:E 
RASE d:GO0TO 3630 
3620 GOTO 3600 
3630 REM HYHH## HN MENU 
3640 REM * REGULARISATION # 
3650 REM HHHN# HN MMM 
3660 IF score)scorel THEN score3=sc 
ore2:score2=scorei:scorei=score:G0S 
UB 3720:non83$=nos2$:nos2$=no81$:noa 
1$=non$:G0TO 3780 
3670 IF score>score2 THEN score3=sc 
ore2:score2=score:G0SUB 3720:nos83$- 
nos/$:nom2$-no8$:G0TO 3780 
3680 IF score>score3 THEN score3-sc 
ore:GOSUB 3720:no83$=no8$ :G0TO 3780 
3690 IF score=scorei THEN score3=sc 
ore2:score2=score:G0SUB 3720:nom3$- 
nos2$:non2$-nom$ :GO0TO 3780 
3700 IF score=score2 THEN score3=sc 
ore:G0SUB 3720:nom3$=nos$:G0TO 3780 
3710 GOTO 3090 
3720 HODE 2 
3730 LOCATE 20,8:PRINT"VOUS ETES PA 
RHIS LES 3 CHAMPIONS" 
3740 LOCATE 20,10:PRINT"VOTRE NOH S 
.V.P ?* 
3750 LOCATE 20,12:LINE INPUT"";non$ 
3760 nom$=UPPER$(LEFT$(non$,8)) 
3770 RETURN 
24 





3780 MODE 2:CLS 

3790 LOCATE 30,2:PRINT"TABLEAU DES 
SCORES" 

3800 LOCATE 30,3:PRINT"-=-=-=-=-2:-: 


3810 LOCATE 24,7:PRINT" Premier... 


..";non2$;"...... “;score2; "POINTS" 
3830 LOCATE 24,11:PRINT" Troisiese. 
..";n0n3$;"...... “;score3; "POINTS" 
3840 LOCATE 26,15:PRINT"PRESSEZ éCè 
POUR CONTINUER" 

3850 z$=INKEYS$:1F z$-"" THEN 3850 

3860 1F z$="c" OR z$="C" THEN 3090 
3870 GOTO 3850 

3880 REM #iutsiutt 

3890 REM *# CHAMPION # 

3900 REM #######44x 

3910 CLS:MODE 2 

3920 LOCATE 20,6:PRINT"VOUS ETES LE 
CHAMPION DES CHAMPIONS" 

3930 GOSUB 3560 

3940 IF score)scorei THEN score3=sc 

ore2:score2=scorel:score{=score:nom 
3$=non2$ :nom2$=no81$:nom1$=nom$ : GOT 

0 3780 

3950 REM #H#######u# 

3960 REM # NIVEAU 1 # 

3970 REM WHHHHHH#ut 

3980 REM TABLEAU N.1 

3990 DATA 102,280,19,1,5 

4000 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
,1,1,0 

4010 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
1,11 

4020 DATA 1,4,1,1,1,2,2,1,2,2,1,1,1 
à, 1,0 

4030 DATA 1,1,4,1,2,2,2,2,2,2,2,1,4 
11,1 

4040 DATA 1,4,1,1,2,2,2,2,2,2,2,1,1 
.4,1,0 

4050 DATA 1,1,4,1,2,2,2,2,2,2,2,1,4 
1,1,1 


4060 DATA 1,4,1,1,1,2,2,2,2,2,1,1,1 : 


,4,1,0 

4070 DATA 1,1,4,1,4,1,2,2,2,1,4,1,4 
1,11 

4080 DATA 1,4,1,1,1,1,1,2,1,1,1,1,1 
,4,1,0 

4090 DATA 1,1,1,1,1,4,1,1,1,4,1,1,1 
tt 

4100 REM TABLEAU N. 2 


>CC 
>NL 


>KA 


)XC 


IC 


>AU 


>BU 


)EY 
NY 
>PB 
)LZ 
>PB 
LR 
>BD 
>KA 


)YB 
>UK 


4110 DATA 
4120 DATA 
tt 
4130 DATA 
LA 
4140 DATA 
Lit 
4150 DATA 
14,1 
4160 DATA 
1,11 
4170 DATA 
14,1 
4180 DATA 
AL 
4190 DATA 
14,1 
4200 DATA 1,1,9,1,1,1,2,2,2,1,1,1,9 
11,1 

4210 DATA 1,1,1,1,4,1,1,1,1,1,4,1,1 
14,1 

4220 REH TABLEAU N.3 

4230 DATA 116,300, 29,9,5 

4240 DATA 1,1,1,4,1,4,1,1,1,1,4,1,1 
14,1 
4250 DATA 
TRS AE 
4260 DATA 
,4,1,1 
4270 DATA 
LE 
4280 DATA 
‘ha 
4290 DATA 
1,1,1 
4300 DATA 
AE 
4310 DATA 
Lt 
4320 DATA 
14,1 
4330 DATA 
Lt 
4340 REM TABLEAU N.4 

4350 DATA 100,320, 19, 1,5 

4360 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
LEA 

4370 DATA 1,2,1,4,1,1,1,2,2,1,1,1,4 
Aa 

4380 DATA 1,2,1,1,2,2,2,2,2,2,2,2,1 
421 

4390 DATA 1,1,2,1,2,2,2,2,2,2,2,2,1 
it 

4400 DATA 1,1,2,1,1,1,1,2,2,1,1,4,1 


108,250,3,11,5 
1,1,1,1,1,1,1,2,1,1,1,1,1 


Lib tire pit 
L'ESLELEDI DAS 


LL 222.1 


1,1,1,1,2,2,2,2,2,2,2,1,1 
1,1,9,1,1,2,1,2,1,2,1,1,9 


LÉALOLUELEAEX 


HAL LALL ETS 
FA PP ES US en 
Hitiinr2r2tt 1 
Li 4:422,2,22,2,2 14 
PA D A PE APE PM 
CS EE EE AP OS PA 
LELÉLELAUEL ES 
Nine LEE Li 


1,1,1,1,1,1,1,4,1,0,1,1,1 


fH01222%2%2 40 








521,4 
4410 DATA 1,4,1,2,1,4,1,1,2,2,1,1,2 
1,11 
4420 DATA 1,4,1,2,1,1,1,2,2,1,1,1,2 
4 
4430 DATA 1,1,1,1,2,1,2,2,1,1,1,2,1 
,1,4,1 
4440 DATA 1,4,1,1,2,1,1,2,2,1,1,2,1 
,4,4,1 
4450 DATA 1,1,1,1,1,2,1,1,1,1,2,1,1 
,1,4,1 
4460 REM ######4### 
4470 REM *# NIVEAU 2 # 
4480 REM N#Y####3u#x 
4490 REM TABLEAU N.i 
4500 DATA 110,300,7,9,4 
4510 DATA 1,1,1,1,1,1,1,1,1,1,1,9,1 
11,1 
4520 DATA 1,1,4,1,1,1,1,2,2,1,1,1,1 
»9,1,1 
4530 DATA 4,1,1,1,1,1,2,2,2,2,1,9,f 
1,1 
4540 DATA 1,1,4,1,1,2,2,2,2,2,2,1,1 
19,1 
4550 DATA 1,1,1,1,1,1,1,2,2,1,1,1,9 
»1,1,1 
4560 DATA 1,4,1,1,1,1,1,2,2,1,1,1,1 
519,1 
4570 DATA 4,1,1,4,1,2,2,2,2,2,2,1,4 
»1,1,1 
4580 DATA 1,1,4,1,1,1,2,2,2,2,1,1,1 
»4,1,1 
4590 DATA 1,4,1,1,4,1,1,2,2,1,1,9,1 
»1,4,1 
4600 DATA 4,1,1,4,1,1,1,1,1,1,1,1,1 
ATETE 
4610 REH TABLEAU N.2 
4620 DATA 124,280,15,9,4 
4630 DATA 2,1,1,1,1,1,2,1,1,1,1,1,1 
11,2 
4640 DATA 1,2,1,1,1,1,1,2,2,1,1,4,1 
Fe ER PA 
4650 DATA 1,1,2,1,1,1,1,2,1,1,1,1,1 
2,441 
4660 DATA 1,1,1,2,1,1,1,1,1,2,1,1,2 
it 
4670 DATA 1,4,1,1,2,2,1,1,1,1,2,2,1 
»1,4,1 
4680 DATA 1,1,1,1,1,2,1,1,1,1,2,2,1 
»1,1,1 
4690 DATA 1,1,1,2,1,1,1,1,1,2,1,1,2 
ii 
4700 DATA 1,1,2,1,1,1,1,1,2,1,1,1,1 
21,1 
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4710 DATA 1,2,1,1,4,1,1,2,1,1,1,4,1 
,1,2,1 

4720 DATA 2,1,1,1,1,1,2,1,1,1,1,1,1 
1,1 

4730 REM TABLEAU N.3 

4740 DATA 97,180,27,9, 4 

4750 DATA 1,1,1,1,1,1,1,2,2,1,1,1,1 
11,1 
4760 DATA 
21,1 
4770 DATA 
12,1 
4780 DATA 
12,1 
4790 DATA 
,1,2,1 
4800 DATA 
1,1 
4810 DATA 
21,1 
4820 DATA 
2,2, 
4830 DATA 
21 
4840 DATA 


1,1,2,1,2,2,1,1,1,1,2,2,1 
1,2,1,1,2,2,1,2,2,1,2,2,1 
1,2,1,1,2,2,1,1,1,1,2,2,1 
1,2,1,1,2,2,1,2,2,1,2,2,1 
1,1,1,1,2,2,1,1,1,1,2,2,1 
1,1,2,2,2,2,1,2,2,1,2,2,2 
1,2,2,2,2,2,1,1,1,1,2,2,2 
1,1,2,2,2,1,1,2,2,1,1,2,2 


EPA D PA DA PUS D 


tt 

4850 REM TABLEAU N. 4 

4860 DATA 96,300,15,9, 4 

4870 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
SE 

4880 DATA 2,2,2,2,2,2,2,1,1, 2,2, 2,2 
FI. 

4890 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 
ai 

4900 DATA 1,1,2,2,1,1,1,1,1,1,1,1,2 
DA 

4910 DATA 4,1,1,2,2,1,1,1,1,1,1,2,2 
1,6 

4920 DATA 1,1,2,2,1,1,1,1,1,1,1,1,2 
Std 

4930 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 
2254 


| 4940 DATA 1,2,2,2,2,2,2,1,1,2,2,2,2 


Da 

4950 DATA 1,1,1,1,4,1,1,1,4,1,1,1,4 
ET 

4960 DATA 1,1,4,1,1,1,4,1,1,1,4,1,1 
,1,4,1 

4970 REM H######### 

4980 REM * NIVEAU 3 # 

4990 REM HHHHH##YN UE 

5000 REM TABLEAU N.1 

5010 DATA 100,280, 13, 13,4 

5020 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 


,1,1,2 

5030 DATA 1,2,2,2,1,2,1,2,1,2,1,2,1 
21,2 

5040 DATA 2,1,1,1,2,1,1,1,1,1,1,1,1 
1,11 

5050 DATA 1,2,1,2,1,2,4,2,4,2,4,2,2 
,2,1,2 

5060 DATA 1,1,1,1,1,1,4,1,1,1,4,1,1 
1,11 

5070 DATA 2,2,1,2,1,2,4,2,1,2,4,2,1 
,2,2,2 

5080 DATA 1,1,2,1,1,1,1,1,1,1,4,1,1 
11,9 

5090 DATA 1,2,1,2,1,2,4,2,1,2,1,2,1 
,2,1,2 

5100 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
11,1 

5110 DATA 2,2,1,2,1,2,1,2,1,2,1, 2,2 
SA 

5120 REM TABLEAU N. 2 

5130 DATA 94,270, 29, 7,4 

5140 DATA 4,1,1,1,1,1,1,1,1,1,1,1,1 
4,11 

5150 DATA 1,1,4,1,2,2,1,2,2,1,2,2,1 
1,1,1 

5160 DATA 1,9,1,1,2,2,1,2,2,1,2,2,4 
195f 

5170 DATA 1,4,1,1,2,2,1,1,1,1,2,2,1 
LEA 

5180 DATA 1,1,9,1,1,2,2,4,1,2,2,1,1 
,9,1,1 

5190 DATA 4,1,1,1,1,2,2,1,1,2,2,1,4 
ii 

5200 DATA 1,9,1,1,2,2,1,1,1,1,2,2,1 
1,91 


5210 DATA 1,1,4,1,2,2,1,2,2,1,2,2,1 : 


41,1 

5220 DATA 1,1,9,1,2,2,1,2,2,1,2,2,1 
,9,1,1 

5230 DATA 9,1,1,1,1,2,2,2,2,2,2,1,1 
11 

5240 REM TABLEAU N.3 

5250 DATA 87,200, 21,9, 4 

5260 DATA 1,1,1,2,1,1,1,2,1,1,1,9,1 
11,2 

5270 DATA 1,2,1,2,1,2,1,2,1,2,1,9,1 
,9,1,2 

5280 DATA 1,2,1,9,1,2,1,9,1,2,1,9,1 
,9,1,2 

5290 DATA 1,2,1,9,1,2,1,9,1,2,1,9,1 
,9,1,2 

5300 DATA 1,2,1,9,1,2,1,2,1,2,1,9,1 
,9,1,2 

5310 DATA 1,9,1,9,1,2,1,2,1,2,1,9,1 





,9,1,2 
5320 DATA 


1,9,1,2,1,2,1,9,1,9,1,9,1 >FU 
,9,1,2 
5330 DATA 1,2,1,2,1,2,1,9,1,9,1,9,1 )FM 
,9,1,2 
,9,1,2 
5350 DATA 1,2,1,1,1,2,1,1,1,2,1,1,1 DEN 
81,1 
5360 REM TABLEAU N. 4 >MH 
5370 DATA 102,330, 23,5, 4 >QH 
5380 DATA 1,1,1,1,1,1,1,4,1,1,1,1,1 >EQ 
Et 
5390 DATA 1,1,4,1,1,1,1,1,1,4,1,1,2 >EX 
A 
5400 DATA 2,2,1,1,1,1,2,2,2,2,1,1,1 >EM 
LS 
5410 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 DEP 
,2,2,1 
5420 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 DEQ 
ER 
5430 DATA 1,1,4,1,1,1,4,1,4,1,1,4,1 DEZ 
LE fé 
5440 DATA 4,1,1,1,4,1,1,1,1,4,1,1,1 DEX 
41,1 
5450 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 )EU 
DÉT 
5460 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 DEV 
CE 
5470 DATA 1,1,1,1,1,1,2,2,2,2,1,1,1 DER 
Tia 


5480 REM #att#r#utt >LX 
5490 REM # NIVEAU 4 + HG 
5500 REM #xtunttutt >LP 
5510 REM TABLEAU N.i )RB 
5520 DATA 84,400, 15,13,3 >QL 


5530 DATA 0,1.1,1,1,1,1,0,1,1,1,1,1 DEF 
»1,1,0 
5540 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 DEU 
2151 
5550 DATA 1,2,2,1,1,0,1,1,1,1,0,1,1 DEN 
»221 
5560 DATA 1,2,2,0,1,1,1,0,0,1,1,1,0 DEM 
»2,2,1 
5570 DATA 1,1,2,2,2,2,1,1,1,1,2,2,2 DEX 
211 
5580 DATA 1,2,2,0,0,2,2,4,1,2,2,0,0 >EX 
»2,2,1 
5590 DATA 1,2,2,0,0,2,2,1,1,2,2,0,0 DEV 
»2,21 
5600 DATA 1,1,2,2,2,2,1,1,4,1,2,2,2 DEU 
21,1 
5610 DATA 0,1,1,4,1,0,1,1,1,1,1,1,4 DEL 
26 








Let 

5620 DATA 1,1,0,1,1,1,1,0,1,1,1,1,1 
,0,1,1 

5630 REM TABLEAU N. 2 

5640 DATA 79,300, 15,3,3 

5650 DATA 1,4,1,1,1,1,1,0,1,1,1,1,1 
ai 
5660 DATA 
LE 
5670 DATA 
D 1,1 
5680 DATA 
CEA 
5690 DATA 
,0,2,1 
5700 DATA 
DE 
5710 DATA 
TA 
5720 DATA 
21,1 
5730 DATA 
TA 
5740 DATA 1,2,0,0,0,2,1,1,1,0,2,0,0 
,0,2,1 

5750 REM TABLEAU N.3 

5760 DATA 70,300,17,5,3 

5770 DATA 1,1,1,0,1,1,1,0,1,1,4,4,1 
11,0 

5780 DATA 1,0,1,1,1,1,1,0,1,4,0,1,4 
,1,0,1 

5790 DATA 1,1,4,0,1,1,1,1,1,1,1,1,4 
,1,0,1 

5800 DATA 4,1,4,1,1,1,1,0,1,4,0,1,1 
HE 

5810 DATA 1,1,4,2,2,0,1,0,1,1,4,4,1 
,0,2,1 

5820 DATA 1,4,1,2,2,1,1,0,9,9,9,1,1 
RER 

5830 DATA 1,1,1,2, 2, 2,2, 2,9,9,9, 2, 2 
ant 

5840 DATA 4,4,1,2,2,0,0, 2, 2,9, 2, 2,0 
02,1 

5850 DATA 1,1,1,2,2,0,0,2,2,9,2, 2,0 
,0,2,1 

5860 DATA 0,1,4,2,2,0,0,2,2,9,2,2,0 
,0,2,1 

5870 REM TABLEAU N.4 

5880 DATA 102, 350, 15, 15,3 

5890 DATA 1,1,1,1,1,1,1,1,1,1,1,0,1 
,0,1,1 

5900 DATA 1,4,1,1,1,1,0,1,0,4,1,1,1 
Li 

5910 DATA 1,1,4,0,1,1,1,1,1,1,4,1,0 


1,1,1,1,1,1,1,1,1,0,1,1,1 
1,1,2,2,2,1,4,1,1,1,1,2,2 
1,2,2,2,2,2,1,1,4,1,2,2,2 
1,2,0,0,0,2,0,1,1,1,2,0,0 
1,2,2,0,2,2,1,0,1,1,2,2,0 
1,1,2,2,2,1,1,1,0,1,1,2,2 
1,1,2,2,2,1,0,1,1,1,1,2,2 


1,2,2,0,2,2,1,4,1,1,2,2,0 


.1,1,1 

5920 DATA 4,1,1,1,0,2,1,2,2,1,1,0,1 
.1,0,1 

5930 DATA 1,1,4,1,2,2,1,1,2,2,1,0,1 
11,1 

5940 DATA 1,2,2,1.1,2,2,1,1,2,2,1,1 
25251 

5950 DATA 1,2,2,1,1,2,2,1,1,2,2,1,1 
.2,2,1 

5960 DATA 1,1.2,2,2,1,1,1,1,0,1,2,2 
21,1 

590 DATA 1,2,2,1,1,1,0,1,1,1,1,1,1 
+252; 

5980 DATA 2,2,1,1,0,1,1,1,0,1,1,0,1 
A ES | 

5990 REM ####ttux 

6000 REM * NIVEAU 5 # 

6010 REM #atauttuut 

6020 REM TABLEAU N.i 

6030 DATA 106,400,15,7,3 

6040 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1 
.0,1,0 

6050 DATA 1,1,1,1,1,1,1,1,1,0,1,1,1 
LE 

6060 DATA 0,0,0,1,0,1,0,1,0,1,0,0,0 
.1,0,1 

6070 DATA 1,1,1,0,1,1,1,1,1,1,1,1,1 
.0,1,1 

6080 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1 
.0,1,0 

6090 DATA 1,1,1,1,0,1,1,1,0,1,1,1,1 
A a | 

6100 DATA 0,1,0,1,0,1,0,1,0,1,0,1,0 
,1,0,1 

6110 DATA 1,1,1,1,1,1,1,0,1,1,1,0,1 
Li 

6120 DATA 1,0,1,0,1,0,1,0,1,0,1,0,1 
.0,1,0 

6130 DATA 1,1,0,1,1,1,0,1,1,1,0,1,1 
,0,1,1 

6140 REM TABLEAU N.2 

6150 DATA 94,200,25,5,3 

6160 DATA 1,1,1,1,1,2,1,1,1,1,1,1,1 
Pa PE ES | 

6170 DATA 1,0,2,2,2,1,1,2,2,9,2,2,2 
,2,0,1 

6180 DATA 1,2,1,1,1,1,9,1,4,1,1,1,1 
1,91 

6190 DATA 1,2,1,0,2,2,1,1,1,1,4,1,1 
1:25 

6200 DATA 1,9,1,2,1,4,1,2,9,9,2,9,9 
,2,0,1 

6210 DATA 1,9,1,2,1,1,1,1,1,1,1,1,1 





1,1,1 

6220 DATA 1,2,1,0,4,4,4,4,4,2,2,2,2 
.2,0,1 

6230 DATA 1,2,1,1,1,1,1,1,1,1,1,1,1 
lost 

6240 DATA 1,0,2,2,9,9,2,2,2,2,2,2,2 
1,91 

6250 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1 
,1,2,1 

6260 REM TABLEAU N.3 

6270 DATA 86,300,15.9,3 

6280 DATA 1,0,1,1,1,1,1,0,1,1,1,1,0 
1,1,1 

6290 DATA 1,1,1,1,1,0,1,1,1,0,1,1,1 
,1,4,1 

6300 DATA 1,0,0,1,1,1,1,0,1,1,1,0,1 
,0,1,1 

6310 DATA 1,1,1,2,2,2,2,1,1,2,2,2,2 
,0,1,0 

6320 DATA 0,1,2,2,1,1,1,1,1,1,1,1.2 
21,1 

6330 DATA 1,1,2,2,2,1,9,0,1,9,1,2,2 
,2,0,1 

6340 DATA 1,2,2,0,2,2,9,1,1,9,2,2,0 
2 

6350 DATA 1,1,2,2,2,1,9,1,0,9,1,2,2 
2,11 

6360 DATA 1,4,2,2,4,1,9,1,1,9,1,4,2 
2,11 


6370 DATA 2,2,2,2,1,1,1,1,1,1,1,1,2 


AVR 
6380 REM TABLEAU N.4 
6390 DATA 92,300,27,17,3 
6400 DATA 0,4,1,1,1,1,1,1,1,1,4,1,1 
,1,4,0 
6410 DATA 1,1,1,4,4,1,1,1,4,1,1,1.4 
tt 
6420 DATA 1,4,2,2,1,2,2,1,4,2,2,1,2 
CAN 
6430 DATA 1,1,2,2,1,2,2,1,1,2,2,1,2 
CAE 
6440 DATA 4,1,4,1,1,1,1,4,1,1,1,4,1 
11,8 
6450 DATA 1,1,4,1,1,4,1,1,4,4,1,1,4 
it 
6460 DATA 1,4,2,2,1,2,2,1,1,2,2,1,2 
,2,4,1 
6470 DATA 1,1,2,2,1,2,2,4,1,2,2,1,2 
ti 
6480 DATA 4,1,4,1,1,4,1,1,1,4,1,1,4 
11,4 
6490 DATA 0,1,1,1,4,1,1,1,1,1,1,4,1 
»1,1,0 (5) 

27 
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Fr: 





FONCTIONS 


ETUDE DE FONCTIONS 
SIMPLES DU 1ER ET 
2EME DEGRE 


C e programme est destiné aux élè- 

ves de 3ème pour bien débuter avec 
les fonctions. Ce qui est appliqué ici est 
le strict nécessaire pour comprendre fa- 
cilement les domaines abordés dans la 
suite des études. 

Il débute par le rappel de quelques 
règles simples, puis exécute une démons- 
tration de tracé de fonction suivant des 
coordonnées choisies par l'utilisateur. Les 
cas particuliers peuvent être étudiés. 

Pour la fonction F(x) = ax+b, on peut 
aussi s'exercer sur une fonction choisie 
par l'ordinateur. Ceci n'est pas indispen- 
sable pour l'autre fonction puisqu'il suf- 
fit de comprendre une fois pour saisir le 
reste. 

Les blancs inutiles du Basic ont été 
supprimés. 

Les codes de contrôle, mis ici sous 
la forme "CHRS"**", peuvent être trans- 
crits sous la forme compilée (Ex : 
PRINT"A"). 

Les REMS peuvent être éliminés sans 
problèmes. 

Il reste à souhaiter aux utilisateurs de 
grandes et longues études. 


10 fonction )LA 
20 )3)»)2>>>>)D2DDDDDDD22DDDDIDDIDDDID LE 
2) 


30 ’)) Logiciel d'education >LC 
>) 
AO. MD) ES eee re >LD 
») 
50 >» ETUDE DE FONCTIONS SIMPLES LE 
2) 
GO "}) =============2=22222222522 >LF 


)) 

70 ‘>> Fait par:  GIANETTI Marc 
>) 

80 ’»» Le 7 fevrier 1987. 
») 


80 7»»»222>22>>2DDDDDDDDDDDDDIDDDDDD 

2) 

100 ? 

110 ?=-= 

120 ? 

130 ‘routine azerty 

140 SYHBOL AFTER 64 

150 SYHBOL 64,56,4,120,12,124,140,1 

18 

160 SYHBOL 92,0,0,60, 102,96, 102,60, 

8 

170 SYHBOL 123,28,32,60, 102, 126,96, 

60 

180 SYMBOL 124,56, 4, 102, 102, 102, 102 

62 

190 SYHBOL 125,56,4,60,102,126,96,6 

0 

200 SYMBOL 126,102, 204 

210 SYMBOL 127,2,98,255,98, 100, 100, 

52,24 

220 TV$=CHR$(154)+CHR$ (159) +CHR$ (8) 

+CHR$ (10) +CHR$(149)+CHR$(8)+CHR$(11 

)+CHR$(11)+CHR$(149)+CHR$(10)+CHR$ ( 

154)+CHR$(154)+CHR$ (154) +CHR$(154)+ 

CHR$(154)+CHR$(154)+CHR$ (154) +CHR$( 

154)+CHR$(154)+CHR$ (154) +CHR$(154)+ 

CHR$(154)+CHR$(154)+CHR$ (154) +CHR$ ( 

154) 

230 TV1$=CHR$(8)+CHR$(8)+CHR$(8)+CH 

R$(8)+CHR$(8)+CHR$ (8) +CHR$ (8) +CHR$( 

8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+ 

CHR$(8)+CHR$(8)+CHR$(8)+CHR$ (8) +CHR 

$(8)+CHR$(11)+"x"+CHR$(9)+"-"+CHR$( 

230)+CHR$(230)+" "+CHR$(240)+" 0 

*+CHR$(240)+" +"+CHR$ (230) +CHR$ (230 

) 

240 TV2$=CHR$(B)+CHR$(8)+CHR$(8)+CH 

R$(8)+CHR$(8)+CHR$(8)+CHR$(B)+CHR$ ( 

8)+CHR$(8)+CHR$(8)+CHR$(8)+CHR$(8)+ 

CHR$(B)+CHR$ (8) +CHR$ (8) +CHR$ (8) +CHR 

$(8)+CHR$(10)+CHR$(10)+"y"+CHR$(9)+ 

CHR$(9)+CHR$(230)+CHR$(230)+" 
"+CHR#(230)+CHR$# (230) 

250 SYMBOL 169,56, 108, 12,56, 96, 124 

260 ? 

270 ’== PRESENTATION 

280 ? 

290 MODE 1:BORDER O:INK 0,0:INK 1,0 


CARACTERES SPECIAUX 


LG 


?LH 


>FK 


v 


un 


vV 


LC 


>AH 
)RJ 
>RK 
TA 
TC 





A 


: INK 2,0:INK 3,0 

300 WINDOW#2,9,32,6,13:PAPER#2,2:CL 

S#2:PEN#2,3 

310 ’ dessin des cadres 

320 PEN 3:LOCATE 2,3:PRINT CHR$(150 
):FOR 1=3 TO 38:LOCATE 1,3:PRINT CH 

R$(154) ; :NEXT 

330 LOCATE 39,3:PRINT CHR$(156):FOR 
1=4 TO 22:LOCATE 39,1:PRINT CHR#(1 
49) ; :NEXT 

340 LOCATE 39,22:PRINT CHR$(153) :F0 

R 1:38 TO 3 STEP-1:LOCATE 1,22:PRIN 

T CHR$(154) ; :NEXT 

350 LOCATE 2,22:PRINT CHR$(147):FOR 
1=21 TO 4 STEP-1:LOCATE 2, 1 :PRINT 

CHR$ (149) ; :NEXT 

360 PEN 1:FOR 1:8 TO 33:LOCATE 1,5: 

PRINT CHR$(238) ; :NEXT 

370 FOR 1=5 TO 14:LOCATE 33,1 :PRINT 
CHR$ (238) : :NEXT 

380 FOR 1=33 TO 8 STEP-1:LOCATE 1,1 

4:PRINT CHR$(238) ; :NEXT 

380 FOR 1=14 TO 5 STEP-1:LOCATE 8,1 
:PRINT CHR$ (238) ; :NEXT 

400 LOCATE#2,2,2:PRINT#2,"ETUDE DE 
S FONCTIONS" 

410 LOCATES2,6,5:PRINT#2, CHR$ (243); 
"Y=AX+B" 

420 LOCATE#2,6,7:PRINT#2,CHR$(243) ; 
" Y= A.X":CHR$(169);" + B" 

430 INK 0,9:INK 1,26:INK 2,6:INK 3, 
0 

440 FOR 1=1 TO 1000:NEXT 

450 PEN 2:LOCATE 4,2:PRINT"ATTENTIO 

N!" 

460 PEN 1:LOCATE 16,2:PRINT"ceci n' 

est pas un jeu!" 

470 PEN 2:LOCATE 5,24:PRINT CHR#({5 

2);"C'EST UN DOCUMENT DE TRAVAIL !" 
;CHR$ (146) 

480 FOR 1=1 TO 1000:NEXT 

490 WINDOW#3,5,36,17,20:PAPER#3, 1:C 

LS#3:PEN#3,3 

500 LOCATE#3,2,2:PRINT#3, "Votre cho 
ixt y= a.x + b 1" 

510 LOCATE#3,15,3:PRINT#3,"y= a.x"; 

CHR$(169);" + b 2" 

520 A$=INKEYS$:IF A$="1"THEN 1370 

530 IF A$="2"THEN 2190 

540 GOTO 520 

550 MODE 2:PAPER O:PEN 1:G0SUB 1930 


KG 


>DR 


»YG 
>PG 
»2C 
>CG 


560 LOCATE 4,2:PRINT"VOULEZ-VOUS UN >TV 


*:GOSUB 640 
28 








| 820 LOCATE 58,9:PRINT" à 





570 LOCATE 4,23:PRINT"Votre choix ( 
O/N).":LOCATE 17,18:PRINT"?" 

580 A$=UPPER$(INKEY$):1F a$="O"THEN 
680 

590 IF A$="N"THEN RETURN 


| 600 GOTO 580 
| 610 ? 


620 *== REGLES ELEMENTAIRES 

630 ? 

640 LOCATE 4,6:PRINT"RAPPEL" 

650 LOCATE 4,10:PRINT"DE QUELQUES" 


| 660 LOCATE 4,14:PRINT"REGLES" 
. 670 LOCATE 4,18:PRINT"ET THEOREMES" 
RETURN 


680 CLS:GO0SUB 1930:G0SUB 640 


| 690 IF =2 GOTO 1230 


700 LOCATE 26,3:PRINT"- La sesure a 
Igèbrique d'un" 

710 LOCATE 27,4:PRINT"segsent sur u 

n axe orienté" 

720 LOCATE 27,5:PRINT"est égal à la 
différence" 

730 LOCATE 27,6:PRINT'entre l'absci 

sse de son" 

740 LOCATE 27,7:PRINT'extrèsite et 

celle de son" 

750 LOCATE 27,8:PRINT"origine." 

760 LOCATE 54,3:PRINT"- Si trois po 
ints A,B,C" 

770 LOCATE 55,4:PRINT'"sont sur un a 
èse axe" 

780 LOCATE 55,5:PRINT'orienté, quelq 
ues soit" 

790 LOCATE 55,6:PRINT" leurs positio 
ns" 

800 LOCATE 55,7:PRINT"relatives ils 
sont liés" 

810 LOCATE 55,8:PRINT'par l'égalité 
." 


830 LOCATE 58,10:PRINT"AC = AB + BC 
" 

840 LOCATE 56,12:PRINT"'Relation de 
CHASLES" 

850 LOCATE 26,16:PRINT"- Sur un axe 
orienté," 

860 LOCATE 27,17:PRINT"l'abscisse d 
u milieu d'un" 

870 LOCATE 27,18:PRINT"segsent est 

égal à la deni" 

880 LOCATE 27,19:PRINT"somne des ab 
scisses de" 


)QY 


>GR 


>TU 
>ZF 
>RH 
)RJ 
>RK 
YYL 
>DX 
YU 


>DG 


)2T 


890 LOCATE 27,20:PRINT" l'origine et 
de" 

900 LOCATE 27,20:PRINT'"l'extrèaite 
de ce segment." 

910 LOCATE 54,16:PRINT"- Une grande 
ur À est dite" 

920 LOCATE 55,17:PRINT" "fonction" d 
‘une grandeur" 

930 LOCATE 55,18:PRINT"B quand à ch 
aque valeur" 

940 LOCATE 55,19:PRINT'"de B corresp 
ond une" 

950 LOCATE 55,20:PRINT"valeur déter 
ninée de A." 

960 GOSUB 1320 

970 GOSUB 1930:G0SUB 640 

980 LOCATE 27,3:PRINT'"Repère orthon 
orsé:" 

990 LOCATE 27,5:PRINT"-Axe des ordo 
nnées  y'y" 

1000 LOCATE 27,7:PRINT"-Axe des abs 
cisses x'x" 

1010 LOCATE 57,3:PRINT'"F(x)= ax + b 
" 

1020 LOCATE 55,5:PRINT"Si a)0 F(x) 
est" 

1030 LOCATE 65,6:PRINT'"croissante." 


1040 LOCATE 55,7:PRINT"Si a<0 F(x) 

est" 

1050 LOCATE 65,8:PRINT"décroissante 
" 

1060 LOCATE 55,9:PRINT"Si a=0 F(x) 

est" 

1070 LOCATE 65,10:PRINT'"constante." 


1080 LOCATE 27,16:PRINT" - Théorème 
L'0 

1090 LOCATE 27,18:PRINT" La courbe 
représentative" 

1100 LOCATE 27,19:PRINT"de la fonct 
ion y=ax est" 

1110 LOCATE 27,20:PRINT"une droite 
qui passe par" 

1120 LOCATE 27,21:PRINT'" l'origine." 


1130 LOCATE 55,16:PRINT" - Theorèa 
e2:" 

1140 LOCATE 55,18:PRINT" La courbe 
représentative" 


1150 LOCATE 55,19:PRINT"de la fonct 
ion y=ax + b" 
1160 LOCATE 55,20:PRINT'est une par 


| HR$(9);CHR$(9):;CHR$(241);" 





A 


allèle à la" 

1170 LOCATE 55,21:PRINT'droite y=ax 
,coupant l'axe" 

1180 LOCATE 55,22:PRINT"des y en un 
point B" 

1190 LOCATE 55,23:PRINT"d'ordonnée 


| b." 


1200 GOSUB 1320 

1210 IF j=1 THEN RETURN 

1220 CLS:GOSUB 1930:G0SUB 640 

1230 LOCATE 27,3:PRINT"Dosaine de d 


| éfinition" 


1240 LOCATE 27,4:PRINT"-========22- 

1250 LOCATE 29,7:PRINT"'F(x)= ax";CH 

R$(169);" + b" 

1260 LOCATE 55,3:PRINT"Si a)0 :" 

1270 LOCATE 58,8:PRINT TV$:;TV1$;TV2 

$ 

1280 LOCATE 60,9:PRINT"+" ;CHR$(9) ;C 

"np" 
";CHRS#(240):;" +" 

1290 LOCATE 55,16:PRINT"Si a<Q :" 

1300 LOCATE 58,20:PRINT TV$:TV18;TV 

24 

1310 LOCATE 60,21:PRINT"+";CHR$ (9); 

CHR$(9) ;CHR$ (9); CHR$(240);" "sb"; 

"";CHRS(241);" -" 

1320 FOR 1=1 TO 1500:NEXT 1! 

1330 LOCATE 4,25:PRINT"*ESPACES pou 

r suite":CALL &BBOG:RETURN 

1340 ? 

1350 ‘## FONCTION f(x)=ax + b 

1360 ? 

1370 j=1:GOSUB 550:GO0SUB 1930 

1380 ? 

1390 ’== Affichage des variables 

1400 ? 

1410 WINDOW#1,4,17,2,4:PAPER#1,1:PE 

N#i,0:CLS#1 

1420 LOCATE#1,2,2:PRINT#1,"F(x)= ax 

+b" 

1430 LOCATE 4,6:INPUT" > a= ",a 

1440 LOCATE 4,6:PRINT" ® 

1450 LOCATE 4,6: INPUT" > b= ",b 

1460 IF a=0 THEN LOCATE 4,6:PRINT"F 

(x) -> constante" :G0T0 1480 

1470 IF a)0 THEN LOCATE 4,6:PRINT"F 

(x) -» Croissante"ELSE LOCATE 4,6:P 

RINT"F(x) -» Décroissante" 

1480 WINDOW#4,4,22,8,15:PAPER#4, 1 :P 

EN#4,0:CLS#4 

1490 IF b<O THEN LOCATE#4,2,2:PRINT 


29 





)AB 


)EY | 


LA 


RZ 


v 


CP 











44,"y =";a;CHR$(8);"x -":ABS(b):GO0T 

0 1520 

1500 IF b=0 THEN LOCATE#4,2,2:PRINT >PB 
#4,°y =";a;CHR$(8):;"x":GOTO 1520 

1510 LOCATE#4,2,2:PRINT#4,"y =";a;C DUD 
HR$(8);"x +":b 


1520 GOSUB 2080 >XA 
1530 ? >YB 
1540 == Calcul des coordonnees )YC 
1550 ? »YD 


1560 IF a=0 AND b>=0 THEN LOCATE 6, >CR 
1L:PRINT" ";CHR$(127) 5" x =) y =":b 
;:G0T0 1580 ELSE GOTO 1600 

1570 IF a=0 AND b<O THEN LOCATE 6,1 >CM 
1:PRINT® ";CHR$#(127);" x => y = *;b 
;:G0T0 1580 ELSE GOTO 1600 

1580 IF b<O OR b>0 THEN LOCATE 5,13 >HN 
:PRINT"L'équation axtb=0":LOCATE 5, 
14:PRINT" est impossible! ":GO0TO 17 

60 

1590 IF b=0 THEN LOCATE 5,13:PRINT" )DJ 
L'équation axtb=0":LOCATE 5,14:PRIN 
T'est indéterminée!":G0TO 1760 

1600 LOCATE 5,12:PRINT" Si x= >LD 


| ":LOCATE 8,14:PRINT" y= d 


1610 LOCATE 5,12:INPUT" Si x= ",x3 )CW 


| 1620 IF x3>0 THEN LOCATE 5,12:PRINT >DA 


" Si x= +":x3:G0T0 1640 


| 1630 IF x3(0 THEN LOCATE 5,12:PRINT >YW 


" Si x= -":ABS(x3) 

1640 y3=(a#x3)+b >FB 
1650 IF y3)0 THEN LOCATE 8,14:PRINT >2Y 
“ y= +";y3:G0TO 1710 

1660 IF y3C0 THEN LOCATE 8,14:PRINT >UJ 


EL y= -";ABS(y3) 


1670 IF y3=0 THEN LOCATE 8,14:PRINT JB 
"y= 0" 


1680 ? >YH 
1690 ’-- Trace des coordonnees »YJ 
1700 >YA 
| 1710 x4=x3#20:y4=y3#20 >QA 


1720 ORIGIN 420,200:PLOT x4,0,1:DRA KL 
W 14,y4:PLOT X4, Y4:DRAW 0, y4 


1730 ? >) 
| 1740 "== CHOIX DIVERS YYE 
1750 ? )YF 


| 1760 LOCATE 1,17:PRINT"__ Voulez- >TF 


vous :" 

1770 PRINT:PRINT" Un autre calcul ? >LB 
" 

1780 PRINT" Voir F(x)= ax+b ?" >BH 


1790 PRINT" Voir F(x)= ax":CHR$(169 >NE 
);"+b ?" 


1800 PRINT" Vous exercer ?" 

1810 PRINT" Terainer ?" 

1820 LOCATE 2,25:PRINT"Votre choix 
(1,2,3,4,5)" 

1830 A$=INKEYS:1F A$="{TTHEN 1560 
1840 IF A$="{"THEN 1600 

1850 IF A$="2"THEN 1370 

1860 1F A$="3"THEN 2190 

1870 IF A$="4 THEN 3040 

1880 IF A$="5"THEN 2760 

1890 GOTO 1830 

1900 ? 

1910 *== TRACE DU CADRE 

1920 ? 

1930 CLS:0RIGIN 0,0 

1940 PLOT 200,200:DRAW 640, 200 

1950 PLOT 635,205:DRA# 640, 200 : DRAW 
635,195 

1960 PLOT 420,0:DRAW 420,400 

1970 PLOT 415,395:DRAN 420, 400: DRAW 
425,395 

1980 FOR i=220 TO 640 STEP 20:MHOVE 
1,197:DRA# i,203:NEXT 

1990 FOR i=20 TO 400 STEP 20:MOVE 4 
17,i:DRAU 423, i:NEXT 

2000 LOCATE 27,12:PRINT"-";CHR$# (230 
);CHR$ (230) :LOCATE 78,12:PRINT'+";C 
HR$ (230) ;CHR$ (230) 

2010 LOCATE 27,14:PRINT"x'":LOCATE 
79,14:PRINT"x" 

2020 LOCATE 51,1:PRINT"y";CHR$(9) :C 
HR$ (9) ;CHR# (9) ; "+"; CHR$ (230) ; CHR$ (2 
30) :LOCATE 51,25:PRINT"y' ":CHR# (9) ; 
CHR$ (9) ;"-";CHR$ (230) :CHR$ (230) 
2030 PLOT 200,0:DRAW 200, 400 


2040 PLOT 199,0:DRAW 199,400:RETURN 
2050 ? 


2060 == TRACAGE DE LA FONCTION 
2070 ? 

2080 1F a=0 AND b=0 THEN RETURN 
2090 ORIGIN 420,200 

2100 FOR x=-10 TO 10 STEP 0.1 
2110 IF j=1 THEN y=(a#x)tb 
2120 IF j=2 THEN y=(a#(x"2))tb 
2130 xi=x#20:yi=y#20 

2140 IF x=-10 THEN DRAW x1,y1,0,3 E 
LSE DRAY x1,y1,1 

2150 NEXT:RETURN 

2160 ? 

2170 ‘## FONCTION f(x)=ax2 + b 
2180 

2190 j-2:GO0SUB 550:GO0SUB 1930 
2200 





JAJ 
>WD 
>VU 


>ZP 


PE | 
>PL | 
>PP | 


>PL 
>PX 
>NH 
)YC 
>YD 
)YE 
JNJ 
JWA 
)JH 


WW 
)JN 


)ZA 


YU 


)VF 


)VR 


DL) 


>VZ 
>Dt 
>1K 
)YA 
»>YB 
>XG 
>HD 
>UJ 
)TB 
>XH 
>PR 
RC 


>Hu 
)YB 
»YC 
>YD 
)XZ 
»1G 





A 


2210 "== Affichage des variables 

2220 ? 

2230 WINDOW#1,4,17,2,4:PAPER#1,1:CL 

S#1:PEN#1,0 

2240 LOCATE#1,2,2:PRINT#1,"F(x)= ax 

";CHR$(169) ;"+b" 

2250 LOCATE 4,6:INPUT"_ > a= ",a 

2260 LOCATE 4,6:PRINT" " 

2270 LOCATE 4,6:INPUT"_ > b= 

2280 LOCATE 4,6:PRINT" " 

2290 WINDOW#4,3,22,10,16:PAPER#A , 1 : 

CLS#4:PEN#4,0 

2300 1F b=0 THEN LOCATE#4,2,2:PRINT 

#4,"y =";a;CHR$(8) ; "x"; CHR$ (169) :G0 

TO 2330 

2310 IF b<O THEN LOCATE#4,2,2:PRINT 

#4,"y =";a;CHR$(8); "x"; CHR$(169);" 
-";ABS(b):GOTO 2330 

2320 LOCATE#4,2,2:PRINT#4,"y =";a;C 

HR$(B); "x"; CHR$(169);" +";b 

2330 IF a=0 THEN LOCATE 4,7:PRINT'F 
O0= constante":G0TO 2380 

2340 LOCATE 4,7:PRINT TV$+TV1$+TV2$ 
2350 IF a)0 THEN LOCATE 6,8:PRINT"+ 
";CHR$(9) ;CHR$ (9) ;CHR$ (9) ;CHR$ (241) 
." ":CHR$(240):;" +":GOTO 2370 

2360 IF a<0 THEN LOCATE 6,8:PRINT"- 
*:CHR$ (9) ;CHR$ (9) ;CHR$(9) ;CHR$ (240) 
" ";CHRS(241);" -" 

2370 LOCATE 12,8:PRINT b 

2380 GOSUB 2080 

2390 

2400 "== CALCUL DES COORDONNEES 
2410 ? 

2420 IF a=0 AND b>-0 THEN LOCATE 6, 
13: PRINT" ":CHR#(127);" x => y =";b 
::G0T0 2440 ELSE GOTO 2460 

2430 IF a=0 AND b<O THEN LOCATE 6,1 

S:PRINT" ";CHR#(127);" x => y = ":b 
;:G0T0 2440 ELSE GOTO 2460 

2440 IF b<O OR b>0 THEN LOCATE 4,15 
:PRINT'"L'équation ax" ;CHR$(169) :"+b 

=0":LOCATE 4,16:PRINT" est inpossi 
ble! ":GOTO 2620 

2450 IF b=0 THEN LOCATE 4,15:PRINT" 

L'équation ax";CHR$(169) ; "+b=0":LOC 

ATE 4,16:PRINT'est indéterminée!": 

GOTO 2620 

2460 LOCATE 5,13:PRINT" Si x= 
":LOCATE 8,15:PRINT" y= " 

2470 LOCATE 5,13: INPUT" Si x= ",x13 

2480 IF x3>0 THEN LOCATE 5,13:PRINT 

"Si x= +":x3 


30 


)XH 


>DV 
>QD 


>Cu 


>NG 


CC 
>RF 





2490 IF x3<0 THEN LOCATE 5,13:PRINT >YC 


"Si 
2500 
2510 


x= -";ABS(x3) 

y3=(a#(x3°2))+b 

IF y3>0 THEN LOCATE 8,15:PRINT 
+":y3:G0T0 2570 

IF y3C0 THEN LOCATE 8,15:PRINT 
-":ABS(y3):GOT0 2570 

IF y3=0 THEN LOCATE 8,15:PRINT 
0" 

2540 ? 

’-- Tracer des coordonnees 
2560 

2570 x4=x3#20:y4=y3#20 

2580 ORIGIN 420,200:PLOT x4,0,1:DRA 
W x4,y4:DRAW 0,y4 

2590 ? 

2600 ’== CHOIX DIVERS 

2610 ? 

2620 LOCATE 1,18:PRINT" ___ Voulez- 
vous :" 

2630 PRINT:PRINT" Un autre calcul ? 
n 

2640 PRINT" Voir F(x)= axtb ?* 

2650 PRINT" Revoir f(x)= ax";CHR$(1 
69);"+b ?" 

2660 PRINT" Terainer ?" 

2670 LOCATE 2,25:PRINT"Votre choix 
(1,2,3,4) 

2680 A$=INKEY$:1F A$="{"THEN 2460 
2690 IF A$="2"THEN 1370 

2700 IF A$="3"THEN 2190 

2710 IF A$="4"THEN 2760 

2720 GOTO 2680 


2730 ? 
| 2740 "== PROGRAMME DE FIN 
| 2750 ? 

2760 MODE 1 


| 2770 WINDOW#2,9,32,6, 13:PAPER#2, 2:C 


L5#2:PEN#2,3 
2780 WINDOW#3, 5,36, 16, 21 : PAPER#3, 1 : 
CLS#3:PEN#3,3 


| 2790 ' dessin des cadres 


2800 PEN 3:LOCATE 2,3:PRINT CHR$(15 
0):FOR 1=3 TO 38:LOCATE 1,3:PRINT C 
HR$ (154) : :NEXT 

2810 LOCATE 39,3:PRINT CHR$(156) :FO 
R 1=4 TO 22:LOCATE 39, 1:PRINT CHRS( 
149) ::NEXT 

2820 LOCATE 39,22:PRINT CHR$(153):F 
OR 1-38 TO 3 STEP-1:LOCATE 1,22:PRI 
NT CHR$(154) : :NEXT 

2830 LOCATE 2,22:PRINT CHR#(147):FO 
R 1-21 TO 4 STEP-1:LOCATE 2, L:PRINT 


NX 
>ZA 


FE 


)JY 


»YD 
YYE 
)YF 
>QF 
>WH 


»YJ 
>YA 
)YB 
>TC 


>LX 


>BD 
>TF 


>WH 
RG 


)ZU 
>PP 
>PH 
>PN 
NE 
)YE 
»YF 
»YG 
>QA 
>RA 


)TA 


> ZA 


)NE 


>HC 


>UP 


)QT 


CHR$ (149) ; :NEXT 
2840 PEN 1:FOR 1=8 TO 33:LOCATE 1,5 
:PRINT CHR$ (238) ; :NEXT 
2850 FOR 1=5 TO 14:LOCATE 33,1 :PRIN 
T CHR$ (238) ; :NEXT 
2860 FOR 1-33 TO 8 STEP-1:LOCATE 1, 
14: PRINT CHR$(238) ; :NEXT 

2870 FOR 1=14 TO 5 STEP-1:LOCATE 8, 
I:PRINT CHR$(238) ; :NEXT 

2880 LOCATE#2,5,2:PRINT#2,"ETES-VOU 
S SUR" 

2890 LOCATE#2,2,3:PRINT#2,"D'AVOIR 
TOUT COMPRIS ?* 

2900 LOCATER2, 3, 7:PRINT#2,"REFLECHI 
SSEZ BIEN !" 

2910 FOR 1=1 TO 1000:NEXT 

2920 LOCATE#3,1,2:PRINT#3,"Tapez :" 
2930 LOCATE#3,2,3:PRINT#3,"1 pour 
revoir F(x)= y=axtb" 

2940 LOCATE#3,2,4:PRINT#3,"2_ pour 
revoir F(x)= y=ax";CHR$(169) ;"+b" 
2950 LOCATE#3,2,5:PRINT#3,"3 Si vo 
us avez vraiment fini!" 

2960 A$=INKEY$:1F A$="{1"THEN 1370 
2970 IF A$="2"THEN 2190 

2980 IF A$="3"THEN 3000 
2990 GOTO 2960 

3000 CLS#2:CL5#3:LOCATE#2, 7,4:PRINT 
42, "AU REVOIR !":LOCATE#3,11,4:PR 
INT#3,"A BIENTOT !":CALL &BBO6:CAL 
L 0 

3010 
3020 == JOUONS AVEC Y=AX+B 

3030 
3040 RANDOHIZE(TIME) :GOSUB 1930 
3050 WINDOW#1,4,17,2,4:PAPER#1,1:CL 
S#1:PEN#1,0 

3060 WINDOW#4,3,23,8,15:PAPER#4,1:C 
LS#4 : PEN#4,0 

3070 LOCATE#1,2,2:PRINT#1,"F(x)= ax 
+b" 

3080 a=INT((RND(1))#5):b=INT((RND(1 
))#5) 

3090 c=(RND(1)):1F c)0.5 THEN a=-a 
3100 d=(RND(1)):1F d>0.5 THEN b=-b 
3110 IF a=0 AND b=0 THEN 3080 
3120 PEN 1:1F b(O THEN LOCATE 4,6:P 
RINT'y = "sa; CHR$(B):"x -":ABS(b):G 
0TO 3180 

3130 IF b=0 THEN LOCATE 4,6:PRINT"y 
= ";a;CHR$(8);"x":GOTO 3180 
3140 LOCATE 4,6:PRINT"y = ";a;CHR$( 
8);"x +";b 








3150 ? 


3160 ’-- Croissante,  Decroissante ? 
3170 

3180 LOCATE#4,2,2:PRINT#4,"F(x) est 
." 

3190 LOCATE#4,4,4:PRINT#4,"- croiss 
ante ?" 

3200 LOCATE#4,4,5:PRINT#4,"- décroi 
ssante ?" 

3210 LOCATE#4,4,6:PRINT#4,"- consta 
nte ?" 

3220 LOCATE#4,2,8:PRINT#4, "Tapez C, 
D ou 0." 

3230 a$=UPPERS$(INKEY$) 

3240 IF a)0 AND a$="C"THEN 3310 

3250 IF a>0 AND(a$="D'OR a$="0")THE 
N 3320 

3260 1F a<0 AND(a$="C"OR a$="0")THE 

N 3340 

3270 IF a(0 AND a$="D'THEN 3360 

3280 IF a=0 AND a$="O"THEN 3370 

3290 1F a=0 AND(a$="D'OR a$="C")THE 

N 3380 

3300 G0TO 3230 

3310 CLS#4:LOCATE#4, 2,2: PRINT#4, "F( 

x)= croissante ":LOCATE#4,5,6:PRINT 

#4," BIEN !":GO0T0 3400 

3320 CLS#4:LOCATE#4,2,2:1F a$="D"TH 

EN PRINT#4,"F(x)= décroissante?"ELS 

E PRINT#4,"F(x) = constante ?" 

3330 LOCATE#4,4,4:PRINTH4," erre 
u r !":LOCATE#4,2,6:PRINT#4,"a)0 = 

)":LOCATER4,5,7:PRINT#4,"F(x) crois 

sante":G0TO 3400 

3340 CLS#4:LOCATER4, 2,2:1F a$="C"TH 

EN PRINT#4,"F(x) = croissante?"ELSE 
PRINT#4,"F(x) = constante?" 

3350 LOCATE#4,4,4:PRINTH4,"erre 
u r !":LOCATE#4,2,6:PRINT#4, "a<0 = 

>":LOCATER4,4,7:PRINT#4,"F(x) décro 

issante":G0TO 3400 

3360 CLS#4:LOCATE#4, 2,2:PRINT#4, "F( 

x)= décroissante" :LOCATE#4, 4,6:PRIN 

T#4," BIEN !":G0T0 3400 

3370 CLS#4:LOCATE#4, 3,2:PRINT#4, "F( 

x) = constante":LOCATE#4,5,6:PRINT# 

4," BIEN !":G07T0 3400 

3380 CLS#4:LOCATE#4,2,2:1F a$="C"TH 

EN PRINT#4,"F(x) = croissante?"ELSE 
PRINT#4,"F(x)=décroissante?" 

3390 LOCATE#H4,4,4:PRINTH4." erre 
u r !":LOCATES4,2,6:PRINT#4,"a=0 = 

>":LOCATER4,6,7:PRINT#4, "F(x) const 


31 


L'4 


ok 


V 


KB 


ante":G0T0 3400 

3400 GOSUB 1320 )WF 
3410 ? )YA 
3420 ’-- Calcul et trace des coordo >YB 
nnees 

3430 ? )YC 
3440 CLS#4:LOCATER4,2,2:PRINT#4, "Ca >DM 
Iculons un peu !" 


3450 FOR 1=1 TO 3 CC 
3460 LOCATE 5,11:PRINT"si x = ER 
n 

3470 LOCATE 5,13:PRINT" y = >CU 
n 

3480 LOCATE 12,11: INPUT"",x1 >UR 


3490 IF x1>0 THEN LOCATE 5,11:PRINT >DK 
“gi x = +":x1:GO0TO 3510 

3500 IF x1C0 THEN LOCATE 5,11:PRINT >YY 
“si x = -":ABS(x{) 

3510 LOCATE 12,13: INPUT"",y1 JUN 
3520 IF y120 THEN LOCATE 5,13:PRINT >CB 
"y = +";yi:G0T0 3540 

3530 IF y1<O THEN LOCATE 5,13:PRINT >WE 
"y = -";ABS(yi) 

3540 xi=x1#20:y1=y1#20 >QT 
3550 ORIGIN 420,200:PLOT x1,0,1:DRA >JD 
W xi,y1:PLOT X1,Y1:DRAW 0, yi 


3560 CALL &BBO6:NEXT >PH 
3570 GOSUB 2080 )IH 
35680 DE 
3590 ’== FELICITATIONS TK 
3600 ? )YB 


3610 CLS#4:LOCATER4,2,2:PRINT#4,"B >VH 
R A V O !":LOCATE#4, 4, 4:PRINT84, "po 

ur ce":LOCATE#4,6,6:PRINT#4, "résult 
at..!" 


3620 >)" 
3630 ’== CHOIX DIVERS )YE 
3640 ’ )TF 
3650 LOCATE 1,17:PRINT" Voulez- >TF 
vous :" 

3660 PRINT:PRINT:PRINT" Voir F(x)= >QJ 


axtb ?" 
3670 PRINT" Voir F(x)= ax";CHR#(169 >VA 
);"+b PRINT" 


3680 PRINT" Vous exercer ?" DAT 
3690 PRINT" Terainer ?* > 
3700 LOCATE 2,25:PRINT"Votre choix TD 
(1,2,3,4)" 

3710 AS$=INKEYS:1F A$="1"THEN 1370 >ZM 
3720 IF A$="2"THEN 2190 >PK 
3730 IF A$="3"THEN 3040 >PG 
3740 IF A$="4"THEN 2760 >PT 
3750 GOTO 3710 


DO 
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